AD-A154  251 
UNCLASSIFIED 


AN  EXPERIMENTAL  INVESTIGATION  OF  FUEL  REGRESSION  RATE 
CONTROL  IN  SOLID  FUEL  RAHJETSCU)  NAVAL  POSTGRADUATE 
SCHOOL  MONTEREV  Cfl  BN  KO  DEC  84 

F/G  21/2 


END 


AD-A154  251 


NAVAL  POSTGRADUATE  SCHOOL 

Monterey,  California 


||sEk| 


DTIC 

g^ELECTE 
MAY30  1985  3 


THESIS 


AN  EXPERIMENTAL  INVESTIGATION 
OF  FUEL  REGRESSION  RATE  CONTROL 
IN  SOLID  FUEL  RAMJETS 


Ko ,  Bog  Nam 
December  1984 


Thesis  Advisor: 


D.  W.  Netzer 


Approved  for  public  release;  distribution  is  unlimited 


-'■V—V  ■  T'HiT  fw  -TH  '.—IF  *T*  l-V  L.-*  ■  ..  Tl  WTI 


SECURITY  CLASSIFICATION  OF  This  PAGE  r*h*«  D«f a  Entered) 


REPORT  DOCUMENTATION  PAGE 


REPORT  NUMBER 


4.  title  end  Subtitle) 


BEAD  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


EClPlENT’S  catalog  number 


s.  type  of  report  a  period  covered 


An  Experimental  Investigation  of  Fuel  Regression  Master's  Thesis; 
Rate  Control  in  Solid  Fuel  Ramjets  December  1984 


7.  authors; 

Ko,  Bog  Nam 


9.  PERFORMING  ORGANIZATION  name  ano  address 

Naval  Postgraduate  School 
Monterey,  California  93943 


11  CONTROLLING  OFFICE  NAME  ANO  AOORESS 

Naval  Postgraduate  School 
Monterey,  California  93943 


t.  PERFORMING  ORG.  REPORT  NUMBER 


I.  CONTRACT  OR  GRANT  NUMBERfA) 


N000lif84WR41049 


AM  ELEMENT.  PROJECT,  TASK 
!  WORK  UNIT  NUMBERS 


12.  REPORT  DATE 

December  1984 


13.  NUMBER  OF  PAGES 

62 


4  MONITORING  AGENCY  NAME  4  AOORESS  (It  dlllarant  trom  Controlling  Office )  15.  SECURITY  CLASS,  (ot  tb!a  report) 

Unci assi fied 


15a.  DECLASSIFICATION/  DOWNGRADING 
SCHEDULE 


16.  DISTRIBUTION  STATEMENT  (of  thl a  Rtpoci) 


Approved  for  public  release;  distribution  is  unlimited. 


17.  DISTRIBUTION  STATEMENT  (ot  the  abstract  anfrmd  In  Block  20,  it  dlltarani  from  Roport) 


19-  KEY  WOROS  fCondnu*  on  revarsa  mi  da  if  nacaaaary  and  identify  by  block  number) 


Ramjet 
Sol  i d  Fuel 

Regression  Rate  Control 


20  ABSTRACT  (Continue  on  ravoram  side  It  nacaaaary  and  Idantlfy  by  block  number) 

An  experimental  investigation  was  conducted  to  examine  fuel  regression 
rate  control  methods  other  than  variable  bypass  air  flow  rates  in  the  solid 
fuel  ramjet.  Air  and  oxygen  injection  at  various  axial  locations  within 
the  fuel  grain  were  examined  as  well  as  air,  oxygen  and  ethylene  injection 
through  the  step  face.  One  inlet  swirl  design  was  also  tested.  Secondary 
gas  injection  was  found  to  be  inadequate  for  regression  rate  control.  A 
small  amount  of  inlet  swirl  resulted  in  a  significant  increase  in  fuel 


I  J  ARM7J  1473  EDITION  OF  1  MOV  «5  IS  OBSOLETE 

5  N  0  1  02-  LF-  0  I  4-  660  1  * 


.  SECURITY  CLASSIFICATION  OF  TmiS  PAGE  Dmtm  B»i.r.d; 


- - 

SECURITY  CLASSIFICATION  OF  This  PACE  (Whan  Data  Bniand) 


-^regression  rate,  indicating  that  variable  inlet  swirl  may  be  a 
viable  technique  for  providing  in-flight  fuel  flow  rate  modulation 
in  the  solid  fuel  ramjet. 


•-.rlbutlon/ 
^liability  Co> 
Atb 11  auA/or 
Speolal 


H 


S  N  0102-  LF-  014-  6601 


I  i 


SECURITY  CLASSIFICATION  OF  THIS  NAGEfWtian  Da(a  Bntarad) 


Approved  for  public  release;  distribution  is  unlimited. 


An  Experimental  Investigation  of  Fuel  Regression  Rate  Control 

in 

Solid  Fuel  Ramjets 


Ko,  Bog  Nam 
Major,  Korea  Army 
B.S.,  Korea  Military  Academy,  1975 
B.E.,  Yon  Sei  University,  Seoul  Korea,  1980 


Submitted  in  partial  fulfillment  of  the 
requirements  for  the  degree  of 

MASTER  OF  SCIENCE  IN  ENGINEERING  SCIENCE 

from  the 


NAVAL  POSTGRADUATE  SCHOOL 
December  1984 


Author : 


Approved  by: 


ffls  &P  $  ^r7V) 


Lo ,  Bog  Nam 


i/U'y  frtf 


Jeczer,  Thesis  Advisor 


Lent. tuns , second  Header 


TTL  F"L  Plat  zer ,  Chairman , 
Department  of  Aeronautics 


- /  ^  jP/^Dyer , - 

Dean  of  Science  And  Engineering 


v- 


ABSTRACT 


An  experimental  investigation  was  conducted  to  examine 
fuel  regression  rate  control  methods  other  than  variable 
bypass  air  flow  rates  in  the  solid  fuel  ramjet.  Air  and 
oxygen  injection  at  various  axial  locations  wi thin  the  fuel 
grain  were  examined  as  well  as  air,  oxygen  and  ethylene 
injection  through  the  step  face.  One  inlet  swirl  design  was 
also  tested.  Secondary  gas  injection  was  found  to  be 
inadequate  for  regression  rate  control.  A  small  amount  of 
inlet  swirl  resulted  in  a  significant  increase  in  fuel 
regression  rate,  indicating  that  variable  inlet  swirl  may  be 
a  viable  technique  for  providing  in-flight  fuel  flow  rate 
modulation  in  the  solid  fuel  ramjet. 
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I.  INTRODUCTION 


Ramjets  operate  with  much  higher  specific  impulse  than 
rockets  since  ramjets  use  inlet  air  as  a  source  of  oxygen. 
Self-sufficient  rockets,  on  the  other  hand,  must  carry  their 
own  oxidizer  and  bear  the  consequent  penalty.  Accordingly, 
although  rockets  must  be  chosen  for  propulsion  outside  of 
the  atmosphere,  and  solid  propellent  rockets  are 
unchallenged  for  short-  range  tactical  applications,  ramjets 
can  generally  outperform  rockets  in  the  medium  and  long 
range  tactical  environments. 

Because  the  ramjet  depends  only  on  its  forward  motion  at 
supersonic  speeds  to  effectively  compress  intake  air,  the 
engine,  in  principle,  can  employ  very  few,  if  any,  moving 
parts.  It  is  therefore  capable  of  simplicity,  lightness  of 
construction,  and  high  flight  speed  not  possible  in  other 
air-breathing  engines.  These  features,  plus  the  high  thermal 
efficiency  it  can  achieve,  make  the  ramjet  a  particulary 
attractive  choice  for  propelling  vehicles  at  supersonic 
speeds  . 

One  of  the  significant  difference  between  rockets  and 
ramjets  is  thrust  at  zero  speed.  Rockets  can  deliver  thrust 
at  any  speed,  whereas  a  ramjet  requires  an  auxilary  boost 
system  to  accelerate  it  to  its  supersonic  operating  regime 
so  that  its  forward  motion  can  compress  the  inlet  air.  To 
operate  at  practical  efficiency  a  ramjet  must  be  moving  at 
about  a  Mach  number  of  1.5  or  greater  so  that  the  margin  of 
thrust  over  drag  will  be  satisfactory. 

The  solid  fuel  ramjet(SFRJ)  employs  solid  fuel  for  the 
combustor  walls.  Its  distinguishing  feature  is  the  absence 
of  fuel  tankage,  fuel  delivery,  and  fuel  control  systems. 
The  solid  fuel  ramjet  offers  this  simplicity  while  providing 
excellent  density  impulse  and  combustion  efficiency. 
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flow  was  passed  through  a  central  swirl  element  which 
extended  0.5  inches  into  the  combustor.  The  swirl  was 
induced  by  machining  six  flutes  with  a  twist  of  one  turn  in 
five  inches.  The  latter  resulted  in  an  inlet  swirl  angle  of 
approximately  5  degrees  to  the  motor  centerline. 

During  the  normal  ignition  sequence,  the  air  flow  rate 
was  set  at  the  desired  value  before  the  ignition  switch  was 
activated.  When  the  ignition  circuit  was  activated,  echylene 
gas  was  introduced  upstream  of  the  fuel  grain  along  with 
primary  air  flow.  This  mixture  was  ignited  with  an 
oxygen- ethv lene  torch  which  issued  from  the  face  of  the  step 
inlet.  Normally,  two  to  three  seconds  of  ignition  time  was 
required  for  PMM  combustion  to  sustain. 

The  step  insert  section  was  provisioned  for  variations 
in  inlet  diameters  to  make  the  sudden  expansion.  The  fuel 
grain  itself,  when  mounted  in  the  motor,  became  the  mid-body 
of  the  ramjet.  The  fuel  grain  (and  injection  ring,  if  used) 
mounted  between  the  head-end  assembly  and  the  aft  mixing 
chamber.  The  aft-mixing  chamber  had  a  length- to  -  diameter 
ratio  of  2.9.  The  entire  motor  was  held  together  by  four 
threaded  rods  and  nuts.  The  ramjet  motor  was  then  mounted 
on  the  thrust  stand. 

B.  AIR  SUPPLY  SYSTEM 

A  schematic  of  the  ramjet  air  supply  system  is  shown  in 
figure  3.2.  From  the  air  tanks,  the  air  flows  through  a 
pressure  regulator,  a  sonic  choke,  a  vitiated  air  heater  and 
finally  to  the  head-end  assembly.  The  air  flow  can  be 
either  vented  into  the  atmosphere  or  vented  through  the 
ramjet  motor  by  the  control  of  two  pneumatically  operated 
valves.  Two  flexible  air  flow  lines  were  used  to  connect 
the  main  air  line  to  the  air  heater.  The  latter  was  mounted 
on  the  thrust  stand. 
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III.  DESCRIPTION  OF  APPARATUS 

A.  RAMJET  MOTOR 

The  ramjet  motor  assembly  used  in  t'.is  experiments  was 
that  used  previously  at  NPS  [Ref.  1,  2]. 

Figure  3.1  shows  a  schematic  drawing  of  the  ramjet, 
illustrating  the  main  sections.  These  are,  the  head-end 
assembly,  step  insert  section,  fuel  grain,  aft  mixing 
chamber  and  exhaust  nozzle.  For  the  tests  with  secondary 
injection,  the  injection  ring  was  used. 

The  head-end  assemly  contains  a  central  opening  for  the 
introduction  of  the  primary  air-flow,  and  ports  for 
introduction  of  the  ignition  fuel  and  the  igniter  torch. 

The  fuel  wall  injection  is  shown  in  Figure  2.1,  Figure 
2.2  and  Figure  2.3.  Injection  velocity  varied  between 
approximately  30  and  200  ft/sec  as  the  injection  mass  flow 
rate  was  increased  from  1%  to  5  7„  of  the  inlet  air  flow.  A 
nominal  one  dimensional  flow  port  velocity  was  approximately 
300  ft/sec. 

For  the  face  injection  tests,  air,  oxygen  or  gaseous 
fuel  was  introduced  using  a  differently  designed  step 
insert (Figure  2.4  and  Figure  2.3).  The  injection  was 
provided  through  eight  equally  spaced,  0.047  diameter  holes. 
For  an  injection  gas  mass  flow  rate  equal  to  1  %  of  the 
inlet  air  flow  rate  the  injection  velocity  was  approximately 
65  ft/sec. 

To  provide  a  swirl  at  the  air  inlet,  a  specially 
designed  insert  was  used(Figure  2.6).  This  device  was  a 
tube-in-hole  type  injector.  Approximately  43  X  of  the  air 
flow  passed  through  the  outer  annulus  to  maintain  the 
recirculation  region/flame  holder.  The  other  57  X  of  the  air 


where  Pe 


=  exit  pressure  of  the  nozzle 
P0  =  ambient  pressure.  Then  for  a  choked 
converging  nozzle,  this  equation  can  be  simplified  to 

where  R  and  Y  are  determined  using  PEPCODE 
Then  efficiency  based  on  thrust  is  calculated  from 

(2.14) 

gc  /  (Mt  cpexP) 
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pre-ignition  flow  rate 
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where  Ca  =  characteritic  exhaust  velocity  for  air 

flow  before  ignition 

£ 

Cexp  =  experimental  characteristic  exhaust 
velocity  based  on  Pc,  the  average  combustion  pressure 

is  obtained  from  equat ion ( 2 . 7  )  using  "Y  , 
R  and  Tt  from  PEPCODE  with  inputs  of  Pc,  Ta,  ma,r,  mp  ,  m0iand 
mCi^  ■  The  latter  two  flow  rates  are  used  in  the  vitiated 
air  heater. 


The  thrust  equation  is 
F  =  TWt  Ue  +  (Pe  -  Po)  Ae 

where  m*  =n^,  +  mp  +  m0+  m^^ 


(2.10) 


A  thrust  coefficient,  Cp.,  can  be  defined  such  that 
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based  on  thrust.  The  one  dimensional  continuity  equation 
(m=  f  A  V)  can  be  expressed  in  terms  of  the  chamber 
stagnation  properties  for  a  choked  converging  nozzle 
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where  m^  =  total  flow  rate 

Pt  =  Pc,  chamber  pressure(for  low  Mach 


Athpffp  effective  nozzle  throat  area 
R  =  gas  constant 


The  characteristic  exhaust  velocity,  c*  is  defined  as 


d  =  f*c  Ath  He  _  F  flc- 

Ti\t  CF  imt 

where  Cp  =  thrust  coefficient 

For  a  sonically  choked  exhaust  nozzle, 
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Using  pre-test  air  flow  through  the  motor,  equations 
(2.6)and  (2.7)  can  be  used  to  determine  the  effective 
exhaust  nozzle  throat  diameter (Dtheff ) 
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where  AW  =  weight  change 

L  =  length  of  the  fuel  grain 

$  =  density  of  the  fuel  grain 

D i  =  average  intial  port  diameter  of  the 

PMM  grain 


The  average  fuel  regression  rate  was  then  computed  using 


•  _  Pf  ~  Pi 

n "  z  tb 


(2.3) 


The  mixture  ratio,  chamber  pressure  and  motor  air  inlet 
temperature  were  used  as  input  into  the  Naval  Weapons 
Center(NWC)  China  Lake,  Ca.,  Propellant  Evaluation 
Program(PEPCODE)  computer  program  to  obtain  the  theoretical 
adiabatic  combustion  temperature  and  the  combustion  gas 
properties ( Y  and  R) .  This  temperature  was  used  to  calculate 
temperature  rise  combustion  efficiencies  based  on  thrust  and 
based  on  nozzle  stagnation  pressure,  where 


Tt 

T*th  *”  To. 


(2.4) 


and 

Ttth 


combustor  stagnation  temperature 
theoretical  combustor  temperature 
inlet  air  temperature 


Experimental  values  of  combustor  stagnation  temperatures 
were  calculated  in  two  ways,  one  based  on  pressure  and  one 
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Figure  2.6  Swirl  Element  Inlet  Injector. 

Temperatures  were  only  recorded  digitally.  Average 
values  of  the  thrust  and  chamber  pressure  were  determined 
using  a  compensating  polar  planimeter  on  the  analog  record. 

The  mass  flow  rate  of  air  was  obtained  by  using 
sonically  choked  nozzles.  Average  fuel  mass  flow  rate  was 
calculated  by  using  the  weight  loss  during  the  burn  time 


(2.1) 


where  ^w  =  weight  change  during  the  run 
tb=  burn  time 

The  average  internal  diameter  of  the  fuel  grain  was 
measured  prior  to  the  run.  The  final  average  diameter  was 
determined  based  on  weight  loss  and  fuel  length  by  using 
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Figure  2.2  Drawing  of  Injection  Ring  for  Side  Wall  Injection 


conditions  found  to  s igni f i cant ly  affect  chamber  pressure(or 
thrust)  were  further  evaluated  using  full-length  burn  times 
of  approximately  30  seconds  (in  order  to  accurately 
determine  regression  rate  and  combustion  efficiency). 


B.  DATA  COLLLECTION  METHOD 


The  data  collected  during  the  regression 
tests  consisted  of  air  flow  rates,  oxygen,  air 
rates  for  the  injection,  motor  head-end 
pressures,  weight  changes  of  the  fuel  grain, 
air  flow  time,  ignition  time,  burning  time, 
thrust  and  ignition  gas  flow  rate.  All  pressu 
thrust  were  recorded  both  digitally  and  analog. 


rate  control 
or  fuel  flow 
and  chamber 
pre- ignition 
purge  time, 
res  and  the 


Figure  2.1  Fuel  Configurations  for  Side  Wall  Injection. 
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II.  METHOD  OF  INVESTIGATION 

A.  TEST  CONDITITIONS  AND  METHODS 

The  experimental  investigation  was  begun  by  selecting 
several  configurations  for  regression  rate  control  through 
the  utilization  of  secondary  injection.  It  was  decided  to 
examine  secondary  injection  at  three  locations  through  the 
fuel  grain  wall:  in  the  recirculation  zone(flame  holder 
area),  just  downstream  of  flow  reattachment  and  further 
downstream  within  the  region  of  the  developing  boundary 
layer  (in  which  is  located  a  turbulent  diffusion  flame).  In 
addition,  gaseous  injection  on  the  inlet  step  face  and  inlet 
air  swirl  were  examined. 

Polymethylmethacrylate(PMM)  was  used  as  the  fuel  and  had 
a  nominal  length  of  12  inches  and  an  internal  diameter  of 
1.5  inches.  A  sudden  expansion  inlet  was  used  which  provided 
an  inlet  step  height  of  0.49  inches. 

Flow  reattachment  normally  occurs  between  7  and  8  step 
heights (i.e,  3.5  -  4  inches).  Thus  the  three  injection 
location  chosen  where  2,  5,  and  8  inches  from  the  head 
end(See  Figure  2.1). 

The  injection  ring  was  designed  to  provide  radial 
injection  through  eight  equally  spaced,  0.0625  inches 
diameter  holes (See  Figure  2.2  and  Figure  2.3). 

Gaseous  injection  was  also  used  through  the  inlet  step 
face  as  shown  in  Figure  2.4  and  Figure  2.5. 

Swirl  was  provided  to  the  inlet  air  flow  through  the  use 
of  a  swirl  element  inlet  inj ector (Figure  2.6). 

Initial  screening  tests  of  short  duration  were  made  in 
which  no  injection  or  swirl  was  used,  followed  by  tests  with 
various  amounts  of  gaseous  injection  or  swirl.  Those 


oscillations.  Therefore,  other  fuel  regression  rate  control 
techniques  should  be  persued. 

One  possible  alternative  technique  is  the  use  of 
variable  swirl  at  the  air  inlet.  Increased  swirl  may 
increase  the  regression  rate.  This  technique  would  require  a 
vane  control  device.  Another  possibility  is  the  use  of 
secondary  injection  of  air,  oxygen  or  gaseous  fuel  into  one 
or  more  locations  within  the  combustor.  This  may  lead  to 
both  increased  fuel  regression  rate  and  combustion 
efficiency.  If  oxygen  were  used  it  would  require  an 
auxiliary  supply  system.  Therefore,  it  would  be  a  practical 
possibility  (to  maintain  simplicity)  for  a  one-time 
augmentation  in  thrust(at  take-over  from  booster,  at 
terminal  maneuver,  etc). 

In  this  investigation  tests  were  conducted  to  examine 
the  effects  of  secondary  gaseous  injection  and  inlet  air 
swirl  on  regression  rate  and  combustion  efficiency. 

A  new  ramjet  thrust  stand  was  installed  in  the 
combustion  laboratory  and  required  calibration  and 
certification.  A  second  part  of  this  investigation  was  to 
conduct  tests  using  high  temperature  inlet  air  and  then  to 
ensure  that  combustion  efficiencies  based  on  thrust  and 
based  on  measured  chamber  pressure  were  in  agreement. 
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Fig  1.1  shows  a  schematic  of  a  SFRJ  combustor.  One 
inherent  problem  with  the  SFRJ  is  the  dependence  of  fuel 
regression  on  the  air  mass  flux  through  the  fuel  grain.  The 
fuel  regression  rate  generally  behaves  according  to 


k(^)  f  (Tair'p) 


(i.i) 


where  r 


=  fuel  regression  rate 


of  inlet  air 


Mair  =  air  flow  rate 
Ap  =  port  area 

f(Tair,P)=  a  weaker  function 
temperature  and  pressure 

x  is  between  .3  and  .6 


If  the  air  flow  rate  increases  or  decreases,  then  the 
fuel  flow  rate  varies  in  the  correct  direction,  but  not 
enough  to  maintain  design  fuel-air  ratio.  This  can 
significantly  affect  propulsive  thrust. 

The  range  of  application  and  the  performance  of  the  SFRJ 
could  be  significantly  improved  if  fuel  regression  rate 
could  be  controlled  in  some  manner.  Perhaps  the  most 
obvious  method  for  fuel  regression  rate  control  is  to  use 
variable  bypass  air  flow. 

Bypass  designs  are  often  desired  in  order  to  increase 
fuel  loading,  and  can  also  improve  combustion  efficiency.  A 
valve  in  the  bypass  line  could  be  used  to  vary  the  bypass 
ratio,  thus  producing  changes  in  the  fuel  flow  rate 
according  to  equation  1.1.  (since  only  the  fuel  port  air 
mass  flux  affects  the  regression  rate).  However,  combustion 
efficiency  may  vary  significantly  with  the  amount  of  bypass 
air  and  a  control  valve  must  be  used  in  the  inlet  air 
ducting.  In  addition,  flow  coupling  may  lead  to  undesired 


Schematic  of  the  SFRJ  Motor. 


PRESSURE 

REGULATOR 


Figure  3.2  Schmatic  of  Air  Supply  System. 


C.  AIR  HEATER 


To  simulate  actual  flight  condition,  air  should  be 
heated  to  the  appropriate  stagnation  temperature.  In  this 
investigation  ethylene  gas  used  in  the  air  heater.  The 
oxygen  in  the  air  which  is  consumed  during  the  heating  must 
be  replaced  before  injection  into  the  ramjet  cumbustor. 
Figure  3.2  shows  a  schematic  diagram  of  the  air  heater.  The 
air  heater  and  the  ramjet  motor  assembly  were  mounted 
together  on  the  thrust  stand. 

D.  DATA  ACQUSITION  AND  CONTROL  SYSTEM 

The  primary  instrumentation  used  in  this  investigation 
consisted  of  various  individual  pressure  transducers  and 
thermocouples  and  a  strain  gage  load  cell  for  the  thrust 
measurement.  All  transducer  outputs  were  recorded  both  with 
a  Honeywell  1508  Visicorder  and  HP-9836S  computer  using  a 
HP- 3054A  AUTOMATIC  DATA  AQUISITION/ CONTROL  SYSTEM.  A  timing 
reference  signal  was  provided  to  the  analog  record  by 
feeding  a  10  Hz  signal  from  a  laboratory  signal  generator  to 
the  timing  channel  of  the  Visicorder.  During  the  test,  the 
HP-9836S  computer  system  was  used  to  record  the 
temperatures,  and  thrust,  and  calculate  the  flow  rates  of 
the  ignition  gas,  purge  gas,  air  heater  ethylene  and  oxygen, 
air  and  secondary  injection  gas.  It  was  necessary  to  record 
the  PMM  fuel  grain  weight  and  inner  diameter  before  and 
after  each  run.  The  fuel  grain  weight  was  measured  using  a 
balance.  All  thermocouples  used  were  chromel  vs  alumel 
(type  K)  with  electronic  ice  points. 

The  computer  was  used  to  both  control  the  test  sequence 
and  to  provide  data  aquisition  during  the  experiment.  Figure 
3.3  is  a  block  diagram  of  the  computer  program.  (See 
Appendix  A.  for  a  complete  listing).  Data  aquisition  for 
all  fourteen  channels  were  recorded  every  0.5  seconds. 


efinitions  and  nomenclature 


|  Variable  d 


Transducer  calibrations 

main  air  sonic  choke  pressure 
chamber  pressure 
motor  head  pressure 

air  heater  fuel  sonic  choke  pressure 
oxygen  make-up  sonic  choke  pressure 
ignition  fuel  sonic  choke  pressure 
purge  gas  sonic  choke  pressure 
thrust  transducer 


Pre-run  input 

test  number,  date 
fuel  I.D 

fuel  dimensions  and  weight 
air  heater  fuel  type 
motor  throat  diameter 
ignition  delay  time 
ignition  time 
buring  time 
purge  time 

sonic  choke  diameters,  discharge  coefficients 
gas  contants  and  desired  flow  rates 


Flow  rates  set-up 
main  air 
heater  fuel 
make-up  oxygen 
ignition  fuel 
purge  gas 


Test  and  data  collection 

pressures  and  temperature  in  voltages 


Data  extraction 

pressures,  temperatures  and  flow  rates 


Print  results 


Figure  3.3  Block  Diagram  of  the  Computer 
Data  Aquisition/Control  Program. 


IV.  EXPERIMENTAL  PROCEDURES  AND  TEST  CONDITIONS 


A.  TRANSDUCER  CALIBRATION 

A  dead-weight  tester  was  used  for  the  calibration  of  all 
pressure  transducers.  Initially  all  transdusers  were  checked 
for  linearity  and  the  Vis icorder (analog )  display  positions 
were  labeled.  For  the  computer  data  aquisition,  voltages 
corresponding  to  atmospheric  pressure  and  the  maximum 
pressure  were  measured.  From  these  readings  a  calibration 
constant  (K)  was  determined  for  each  transducer. 


K  = 


Vpinax  Vpo 


(4.1) 


P  max 

where  Vpmax  =  voltage  reading  at  the  applied 
maximum  pressure 

Vpo  =  voltage  reading  at  atmospheric 

pressure 

Pmax  =  maximum  applied  pressure 


The  thrust  transducer  was  calibrated  in-place  by 
appliying  known  weights  to  the  transducer  through  a  pulley 
system  attached  to  the  thrust  stand. 

B.  FLOW  RATES  SET-UP 

By  use  of  the  computer,  the  gas  flow  rates  could  be  set  up 
before  the  hot  firing.  These  were  determined  from  short 
duration  flows  using  the  equation 


C{j  Kit>  ft-  4- 

where  km  =  constant  (a  function  of  R  andf  ) 
Cd  =  discharge  coefficient 
Pt  =  total  pressure  of  the  gas  flow 


(4.2) 


Dchoke 


sonic  choke  diameter 


Tf  =  total  temperature  of  the  gas  flow 


C.  TEST  SEQUENCE 


1.  Thrust  Stand  Calibration 


The  thrust  stand  was  calibrated  to  determine  the 
difference  between  the  measured  thrust  and  the  actual  or 


theoretical  thrust. 


The  measured  thrust  can  be  in  error 


primarily  due  to  the  variation  in  flex-line  stiffness  with 
changing  pressure  levels.  The  process  was  begun  by 
dead-weight  calibration  of  the  load  cell.  Cold  air  was  then 
flowed  through  the  motor  with  a  choked  exhaust  nozzle. 
Measured  thrust  was  recorded  and  compared  to  the  theoretical 
thrust.  The  latter  was  calculated  using  Equations  (2.11)  and 
(2.13).  This  was  repeated  for  increasing  air  flow  rates  and 
for  three  different  exhaust  nozzle  throat  diameter.  An 
additional  test  was  made  using  hot  air  (1200° R)  and  a  12 
inches  long  HTPB  fuel  grain.  This  test  was  conducted  in 
order  to  compare  the  temperature  rise  combustion  efficiency 
determined  by  using  chamber  pressure  and  by  using  thrust. 

2 .  Fuel-wall  Injection  Tests 

For  the  fuel-wall  injection  tests,  three  injection 
location  were  used  as  discussed  above.  Each  test  lasted  for 
approximately  six  seconds,  three  seconds  without  injection 
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and  three  seconds  with  injection.  Air  injection  mass  flows 
of  2,  5  and  7  percent  of  the  main  air  flow  rate  were  used. 
For  oxygen  injection,  1.5,  2  and  5  percent  were  used.  Those 
conditions  which  resulted  in  the  greatest  increases  in 
chamber  pressure/ thrust  were  repeated  with  full  duration(30 
sec)  tests. 

3  .  Face  Inj ect ion  Tests 


In  these  experiments  a  twelve  inches  long 
cy lindrical ly  perforated  PMM  fuel  grain  was  used.  Air 
injection  flow  rates  of  2,  5  and  7  percent  of  the  main  air 
flow  rate  were  examined. For  oxygen  injection,  1.5,  2  and  5 
percent  were  used.  Ethylene  was  also  used  with  0.5,  1.25  and 
2.5  percent.  Testing  methods  were  identical  to  those 
discussed  above  for  fuel-wall  injection. 

4.  Inlet  Air  Swirl  Tests 

Several  inlets  were  initially  tried  which  induced 
swirl  to  the  entire  inlet  air  flow.  Swirling  the  entire  flow 
apparently  distroys  the  flameholding  recirculation  zone,  and 
resulted  in  no  ignition.  The  tube-in-hole  injector  discussed 
above  was  then  tested  using  a  twelve  inch  PMM  fuel  grain. 
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V.  RESULTS  AND  DISCUSSION 

Summaries  of  the  experimental  results  obtained  during 
the  initial  screening  tests  are  presented  in  Table  1  and 
Table  2  for  fuel-wall  and  inlet  step-face  injection 
respectively.  Results  from  the  subsequent  full  duration 
tests  are  presented  in  Table  3. 

A.  FUEL  WALL  INJECTION 

In  data  presented  in  Table  1  shows  that  air  injected 
through  the  fuel  grain  surface  was  generally  detrimental  to 
combustion.  Air  injection  rates  up  to  approximately  7  %  of 
the  inlet  air  flow  rate  had  little  if  any  effects  on 
combustion  pressure  when  introduced  downstream  of  flow 
reattachment.  Small  amounts  of  air  injected  into  the 
recirculation  zone  appeared  to  provide  small  improvements. 
The  injected  air  was  quite  cold  (approximately  500° R)  and 
therefore  could  have  had  a  quenching  effect  on  the  boundary 
layer  combustion.  Use  of  "in-flight”  high  air  should  be 
examined  in  the  future. 

Unheated  oxygen  injection  resulted  in  significant 
increases  in  combustion  pressure,  especially  when  introduced 
into  the  recirculation  zone  in  small  amounts.  Based  on  these 
screening  test  results  two  additional  tests  were  conducted 
with  test  times  of  approximately  30  seconds.  These  tests 
were  made  to  examine  the  effects  of  1  %  oxygen  injection 
into  the  recirculation  region. 

In  these  tests,  a  total  grain  length  of  fourteen  inches 
was  used;  two  inches  of  PMM  ,  then  the  injection  ring  and 
then  twelve  inches  of  PMM.  One  test(Table  3,  no.  30)  was 
made  without  injection  and  one  with  (Table  3,  no. 29). 
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Oxygen  injection  resulted  in  approximately  a  5  % 
increase  in  in  fuel  regression  rate  (when  adjusted  for  the 
different  air  flowrate)  but  a  decrease  of  21  %  in  combustion 
efficiency.  The  recirculation  zone  is  generally  fuel  rich. 
Thus,  oxygen  injection  should  increase  the  "flame-holder" 
temperature.  This  was  evident  during  the  test  from  increased 
flame  luminosity. 

It  is  not  clear  at  this  point  why  the  combustion 
efficiency  decreased  or,  for  that  matter,  why  the  precence 
of  the  ring  alone  increased  combustion  efficiency.  The 
oxygen  injection  velocity  was  approximately  30  ft/sec  which 
is  less  than  30  %  of  typical  recirculation  zone,  near-wall 
velocities.  However,  the  injected  oxygen  may  have  penetrated 
the  shear  layer. 

Further  testing  would  be  benificial,  especially  using 
HTPB ,  but  at  this  point  it  does  not  appear  that  fuel  wall 
injection  of  small  amounts  of  air  or  oxygen  is  a  viable 
method  for  providing  fuel  mass  flowrate  control  since 
combustion  efficiency  was  decreased  significantly  and  the 
increase  in  regression  rate  was  small. 

B.  INLET  STEP  FACE  INJECTION 

The  data  from  the  screening  tests  with  step-face 
injection  are  presented  in  Table  2.  Unheated  air  had  no 
significant  effect  on  combustion  pressure.  Oxygen  injection 
resulted  in  increased  flame  luminosity  in  the  recirculation 
zone  but  apparently  did  not  significantly  affect  downstream 
combustion  (even  though  the  overall  equivalence  ratio  was 
approximately  0.7).  Injection  of  ethylene  resulted  in 
significant  increases  in  combustion  pressure. 

A  full  duration  test  (Table  3,  no.  28)  was  conducted 
using  1  7o  of  ethylene  with  an  injection  velocity  of 
approximately  65  ft/sec.  Comparison  of  the  results  with 
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those  for  no  injection  (Table  3,  no.  27)  showed  that  only  a 
small  increase  occurred  in  fuel  regression  rate. 

Some  of  the  ethylene  apparently  escaped  the 
recirculation  region  and  burned  downstream  in  the  central 
air  or  in  the  aft  mixing  region,  resulting  in  little  effect 
on  regression  rate. 

C.  INLET  AIR  SWIRL 

Only  one  test  was  conducted  using  inlet  air  swirl  (Table 
3,  no.  31).  Approximately  43  %  of  the  air  was  injected 
axially  to  maintain  the  recirculation  zone  flame  holding 
ability.  This  could  be  reduced  to  perhaps  only  10  -  20  % , 
resulting  in  more  air  with  swirl.  The  amount  of  swirl  was 
also  intentionally  kept  small  (  5  degrees  from  the  axial 
direction)  to  determine  if  regression  rate  was  sensitive  to 
the  swirl. 

The  small  amount  of  swirl  increased  the  fuel  regression 
rate  by  15  %.  This  resulted  in  an  increase  in  equivalence 
ratio  ratio  from  0.69  to  0.79  .  Some  non-uniformity  in 
regression  rate  was  also  evident. 

These  initial  results  indicate  that  fuel  regression  rate 
is  quite  sensitive  to  inlet  air  swirl.  Further  testing  is 
necessary  using  varying  amounts  of  swirl,  but  the  technique 
appears  viable  for  in-flight  fuel  mass  flow  modulation. 

D.  THRUST  STAND  CALIBRATION 

The  results  from  the  cold-flow  tests  for  comparison  of 
measured  and  calculated  thrust  are  in  Figure  5.1.  Excellent 
agreement  was  attained.  A  least-square  fit  of  the  data 
resulted  in  the  following  equation  for  relating  measured 
thrust  to  the  ’’actual"  thrust 

Fa  =  1.0149  X  Fin  +  0.4  (5.1) 
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where  Fa  =  actual  thrust,  based  on  Pc  and 
throat  diameter 

Fin  =  measured  thrust 

A  test  was  then  coducted  (Table  3,  no.  32)  in  which  HTPB 
fuel  was  used  with  an  inlet  air  temperature  of  approximately 
1200  R.  This  test  was  made  in  order  to  compare  the 
combustion  efficiencies  based  on  chamber  pressure  and  based 
on  thrust.  The  two  efficiencies  were  within  5  %,  with  the 
value  based  on  Pc  being  greater.  This  difference  is  not 
large  when  it  is  realized  that  small  errors  in  determining  F 
and  Pc  from  the  analog  traces  are  squared  when  calculating  C 
for  the  efficiency  based  on  thrust  determination. 
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Step  Face  Injection  Result 
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6550  ENTER  722;'Jphf 

6560  OUTPUT  709; “AGIO* 

6570  OUTPUT  722 ; *T3" 

tf SO  ENTER  722;Uthf 

6590  CLEAR  709 

6600  OUTPUT  709  /DC ID, O' 

6610  PRINT  ■MANUALLY  TURN  OFF  AIR  'HEATER  GAS'  SUITCH* 

6620  BEEP 

6630  D ISP  ‘HIT  CONTINUE  TO  PROCEED’ 

6640  PAUSE 

6650  OUTPUT  709: *DO10 , 0* 

6660  Phf=(Vpht-CphfO)*Kphf>Pbar 

6670  Vol ts=vthf 

6630  GOSU6  Tcalc 

6698  Thf =T 

6780  Mhf=Xnhf*Cdhf*Phf».7B54*(Dhfchoke‘2)/(ThfA.5) 

6710  PRINT  USING  ’f 

6720  PRINT  USING  ’4A,DD.DDDDD*:*Rhf=’;hhf 

6730  PRINT  USING  *12A ,DD ,  m>W ;  ‘Mhf  DE3IRLD=’;tthfd 

6740  Rati  o-rihf  /Hhf  d 

6750  PRINT  USING  ,l3A)D.uCD,2X)4A)DDDD,DD,TA’;,hhf/  Hht*  DESIRED=“ a t i o , *Thf =■ 

'Thf  “R"  ii  ii 

6760*  Pq=Phf-Pbdr 

6770  PRINT  USING  ,5A,DDDD,DDD)4A)3X,4A)DDDD,DD)lA,4A)DDDD.DD,!A,:‘Phf=  * :Pg : *P 
siq*  -Thfs-jThf ;*«■ 

6730  INPUT  MS  HEATER  FUEL  FLOW  RATE  ACCURATE  ENOUGH?  <Y/N>* ,Xx« 

6790  IF  Xx$=T  THEN  GOTO  Phffin 

6800  Phfnej=<Phf*Hhf d/tthf ) -Phar 

6910  PRINT  USING  M3A.DDDD  DD,4A*:  'RESET  Phf  TO  *  iPhtnew ;  ’Psi q 1 

6820  DISP  'HIT  CONTINUE  AFTER  RESET  OF  Phf 

6830  PAUSE 

6340  GOTO  Ph f set 

6850  Phffin:' 

6860  DISP  'HIT  CONTINUE  TO  PROCEED  TO  NEXT  FLOW  RATE  SET  UP* 

6570  PAUSE 

6833  Phf? kip:  1 

6354  PRINT  USING  *@’ 

6?00  INPUT  'DO  YOU  WANT  TO  PRESET  THE  HEATER  OXYGEN  FlOW  RATEKY/Nf.Zzt 
6910  IF  Zil-’N'  THEN  GOTO  Phnskip 

6920  i  >«<>»««*«  m  i*  m  ***«*»»«<  **#t*m»******»»*;t****  **»««>****  »««*»*««  a*  *» 

6930  PRINT  'SET  THE  DESIRED  VALUE  OF  Pho  USING  THE  HAND  LOADER /PRESSURE  GAAP 
6940  I  »*<!*)!**  *«<H*m**«  I*  >m  »*<****»;«* 

6950  DISP  'HIT  CONTINUE  WHEN  READY’ 

6960  PAUSE 

6970  Phoset ; 1 

6980  PRINT  ’MANUALLY  TURN  ON  AIR  'HEATER  GAS'  SWITCH’ 

6990  DISP  ’HIT  CONTINUE  TO  PROCEED' 

7303  PAUSE 

7010  OUTPUT  709 ; *AC4 ' 

7020  OUTPUT  722: M3* 

7030  ENTER  722,('pho 

7040  OUTPUT  709 ; ’AC 11* 

7050  OUTPUT  722; M3" 

7063  ENTER  7?2;Utho 

7B90  CLEAR  709 

7080  OUTPUT  709; ’DC1 8.0’ 

7090  PRINT  ’MANUALLY  tUSN  OFF  AIR  'HEATER  GAS'  SWITCH* 

7100  BEEP 

7110  DISP  'HIT  CONTINUE  TO  PROCEED* 

7120  PAUSE 

7130  OUTPUT  709 1 ’DO  1 0 , 0 ’ 

7140  PhoMUphp-OphoOMpho+Pbar 

7150  Vo  1 ts=0th  o 

7160  GOSUB  Tea  1c 

7178  Tho-T 

7180  Mho-XHho*Crtho*?ho».7854»(Dhochoke,2)/(Tho,,5) 

7190  PRINT  USING  ’?’ 

7208  PRINT  USING  ’4A,DD.DDDDD’ ;*Nho=’,Mho 
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5900  IF  Xxt^'Y*  THEM  GOTO  Drheffcalc 
5911!  Panew=(Pa*Haird  'Hair)-Pbar 
5920  PRINT  ’REGET  Pa  TG*;?anew;'Psiq* 

5938  DISP  ’HIT  CONTINUE  AFTER  RESET  CF  Pa’ 

59m  PAUSE 

5950  GOTO  Paset 

5960  Dtheffralc:  !  CALCINATE  EFFECTIVE  THROAT  DIAMETER,  CHARACTERS 

TIC  EXHAUST  VELOCITY,  THRUST  DOTH  THEORETICAL  AND  MEASURED 
5970  Cstar=(Gc*Rair*Ti*( (Gannaair+1 )/2) '( (Gannaair+n/tGarmaair-l ))/Gannaair)A 
.5 

5933  Cf  a  ir= ,  7396+ .  5293-  (14.7/Pc) 

5990  Dtheff-( ( (Cstar*Mair)/( .7854*Pc*Gc) )*,5) 

6000  PRINT  ‘CstaraiMBASED  ON  Ti>=’ ;Cstar  .’(ft/sec)' 

6010  PRINT  *Cfair=’;Cfair 

6020  PRINT  "Dtheff-  jDtheffj'Un)* 

6030  PRINT  'Pco=,;Pc,,Psia* 

6040  PRINT  ■Tis’.Ti.*  R* 

6050  F-(Vf-VfO) »Xf 

6060  Fair=Cfair*Pc*,7854»(DtheffA2) 

6070  PRINT  ’Fair (BASED  ON  Pc)  =  \Fair,'(Lbf ) 1 
60S0  PRINT  ,Fair(KFASURED)=,;F,  (Lbf)* 

6090  IF  Kom  THEN  GOTO  6170 

6100  INPUT  ’DO  YOU  WANT  PRINTOUT  OF  POST  RUN  DATAW/tOVYyl 
6110  IF  Y y $  = ’ N *  THEN  GOTO  Finish 
6128  Headmcpnnt :  !  . 

6130  PRINTER  IS  701 
6140  PRINT  USING  ’6/* 

6150  PRINT  ’  *»*»»*  POST  RUN  DATA  COLD  AIR,  CHOKED  **«*»*  * 

6168  GOTO  Preprint 

6170  INPUT  ’DO  YOU  WANT  PRINTOUT  OF  PRE-RUN  DATA?<Y/N>* ,Xx* 

6130  IF  Xx$=’Y’  THEN  GOTO  Preprint 
6190  GOTO  Skippnnt 
6200  Preprint:  ! 

6210  PRINTER  IS  701 

6220  IF  Kom  THEM  GOTO  6240 

6230  PRINT  *  ****  PRE-RUN  DATA,  USING  COLD  AIR  ONLY  AND  CHO 

KEO  FLOU  »<*«* 

6240  PRINT  " 

6250  PRINT  USING  '12A.2X,8A  * : “TFST  DATE  IS", Date! 

6260  PRINT  'Cstarair (BASED  ON  Ti >=* ;C st ar  * ( f t>sec ) * 

6270  PRINT  *Cfair=';Cfair 

6290  PRINT  'Dthef f =** jDthef f , *< m > “ 

6290  PRINT  ’Pco-’jPc . ’Psia’ 

6300  PRINT  "Ti=* . Ti  ‘  R* 

6310  PRINT  ’Fair (BASED  ON  Pc )=’ :Fair , *(Lbf ) " 

6320  PRINT  “Fair (MEASURED) =" :F,*(Lbf)’ 

6330  PRINT  ’Mair=*;Mair, ’Ibn/sec’ 

6340  PRINTER  IS  1 

6350  IF  Kd=1  THEN  GOTO  Finish 

6360  Skipprint :  1 

6370  DISP  ’HIT  CONTINUE  TO  PROCEED  TO  NEXT  FLOU  RATE  SET  UP* 

6390  PAUSE 
6390  Paskip:  ! 

6400  PRINT  USING  *@* 

6410  INPUT  ’DO  YOU  WANT  TO  PRESET  THE  HEATER  FUEL  FLOW  RATE!  (Y/H)\Zi$ 

6420  IF  Ztl-’N’  THEN  GOTO  Phfskip 

6430  !  HIIMmiHHlItHIHmiHHHHHHHliHUlHttlHiHIHminHXKHt 
6440  PRINT  ’SET  THE  DESIRED  VALUE  OF  Phf  USING  THE  HAND  L0ADER/P9ESSDRE  GAGE “ 
6450  'nHHmHmmmtHJiHHmiiHidHKHHOHHiHHiHmtHimmjH 
6460  DISP  ’HIT  CONTINUE  WHEN  READY’ 

6478  PAUSE 
6430  Phfset ;  ? 

6491  PRINT  USING  ’V 

6500  PRINT  'MANUALLY  TURN  ON  AIR  'HEATER  GAS'  SWITCH* 

6510  DISP  ’  HIT  CONTINUE  TO  PROCEED’ 

6520  PAUSE 

6530  OUTPUT  709;’AC3’ 

6540  OUTPUT  722;’T3’ 
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5253  IF  Z:*=*r  THEN  GOTO  Nochanqe 
5260  Chanqevariable: ! 

5270  PRINT  'INPUT  'VARIABLE  NAME-  CORRECTED  VA1UE' 

5288  PRINT  "A  STRING  VARIABLE  MUST  BE  ENCLOSED  IN  QUOTATION  NARKS' 

5290  DISP  'HIT  EXECUTE  AND  THEN  CONTINUE  AFTER  CORRECTION  * 

5100  PAUSE 
5310  GOTO  Changel 
5320  Nochanqe:! 

5330  U************************************************************************ 
5340  !  B.  FLOW  RATE  SET-UPS 

5350  i  ********  **m»m  *******  *»«x*ix***»«****  »*»**»«  ****  »***»*»****»  **  ****** *» 
5360  PRINT  USING  '8' 

5370  INPUT  'DO  YOU  WANT  TO  PRESET  THE  AIR  FLOW  RATE?< Y/N > ' ,Zi$ 

5380  IF  7r$="N"  THEN  GOTO  P ask i D 

5390  PRINT  'SET  THE  DESIRED  VALUE  OF  Pa(psiq)  USING  THE  HAND  LOADER  /PRFSSURF  G 
AGE* 

5400  PRINT  USING  '3/' 

5410  PRINT  'THE  HAND  LOADER  SHOULD  BE  20  PSIG  MORE  THAN  DESIRED  PRESSURE' 

5420  Pa?et:  ' 

5430  PRINT  USING  '3/' 


5440  PRINT  'MANUAL  I  Y  INITIATE  AIR  FLOW  BY  TURNING  'MAIN  AIR'  TO  'ON'  AND  PUGHJ 
NG  ' PR1 '  ON  CONTROL  PANEL' 

5450  DISP  'HIT  CONTINUE  WHEN  READY' 

5460  PAUSE 

5470  WAIT  3 

5480  OUTPUT  709;'AC2' 

5490  OUTPUT  722; *T3' 

5500  ENTER  722; Up  a 
5510  OUTPUT  709;’AC9" 

5520  OUTPUT  722;'T3' 

5538  ENTER  722;Vta 
5540  OUTPUT  709;'ACO“ 

5550  OUTPUT  722; 'T3* 


5640  OUTPUT  709;’DC1C,1*  !  DIGITALLY  CLOSE  CIRCUIT  1 

5650  WAIT  1 

5660  OUTPUT  709; *DO10 , 1  *  !  DIGITALLY  OPEN  CIRCUIT  1 

5670  BEEP 

5680  PRINT  'TURN  OFF  'MAIN  AIR'1 
5690  DISP  'HIT  CONTINUE  TO  PROCEED' 

5730  PAUSF 


5710  Pa^IVna-VpaOXKpa+Pbar 
5720  Pc=(Vpc-VpcO)*Kpc+Pbar 
5730  Volts=Vta 


5740  COSUB  Tcalc  !  CONVERSION  FROM  VOLTAGE  TO  TEMPERATURE 

5750  Ta  =T 
5760  Volts=Vti 


5770  GQSIJB  Tcalc  !  CONVERSION  FROM  VOLTAGE  TO  TEMPERATURE 

5780  Ti=T 

5790  Mair=Kflair*Cdair*Pa*.7854*(Dairch(ike'2)/(Ta,,5) 

rcriB  P 0 TUT  IICTWr  *3* 

5810  PRINT  USING  '5A,2X.DD0.DDDDD';'Mair=':Mair 

5823  PRINT  USING  *HA,DDD.DDDVMair  OES[RED=’;Haird 

5830  Ratio=Mair/Maird 

5840  PRINT  USING  '20A,D  DDD , 2X , 3A. IX . DDDD . DD ,  1 A , 3'X , 3A , DDDD . DD ,  1  A" ; ’tta ir /DESIRE 
D  Hair-'  ;Rat  ;o ,  'Ta  =  ';Ta,  ‘R'.’ti:1  ;Ti;  “ll*  ’ 

5350  Pg-Pa-Pbar 

5860  PRINT  USING  '4A,DDDD.DD,4A';'Pa  =';Pq;'P5io* 

5870  PRINT  USING  '4A.DCDD.DD  1A'  "Ta  =';Ta  "R*  ' 

5880  IF  Ka-t  THFN  GOTO  DthefFcalc  !  DETERMINE  PRE-RUN  OR  POST-RUN 

5890  INPUT  'IS  AIR  FlOU  RATE  ACCURATE  ENOUGH?  (Y/N)',X»$ 
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4680  INPUT  'THE  AIR  CHOKE  DISCHARGE  COEFFICIENT’ .Cdair 

4690  INPUT  ’THF  AIR  HEATER  FUEL  CHOKE  DISCHARGE  COEFFICIENT* ,Cdhf 

4700  INPUT  ’THE  AIR  HEATER  OXYGEN  CHOiiE  DISCHARGE  COEFFICIENT*  ,Cdho 

4715  INPUT  ’THE  IGNITION  GAS  CHOKE  DISCHARGE  COEFFICIENT* ,Cdif 

4720  INPUT  ’THE  PURGE  GAS  CHOKE  DISCHARGE  COEFFICIENT*, Cdp 

4730  INPUT  ‘THE  AIR  HEATER  FUEL  FLOW  RATE  CONSTANT , K «h f *  .Knhf 

4740  INPUT  ’THE  IGNITION  GAS  FLOW  RATE  CONSTANT,  KmP.Kmf 

4750  INPUT  ‘THE  PURGE  GAS  FLOW  RATE  CONSTANT.  KnoVKnp 

4760  INPUT  'GANNA  FOR  HEATER  FUEL  .GaiwMhfVGaMAahf 

4770  INPUT  ‘GANNA  FOR  IGNITION  FUEL,  Gannaif *  , Gannaif 

4790  INPUT  ’GANNA  FOR  PURGE  CAS,  GannapVGannap 

4790  INPUT  ’GAS  CONSTANT  FOR  HEATER  FUEl.Rhf (ft , lbf/lhn.RI* ,Rhf 

4800  INPUT  ’GAS  CONSTANT  FOR  IGNITION  FUEL.  Rif  ( f  t,  lbf/'lbn.R)  ’,R if 

4810  INPUT  ’GAS  CONSTANT  FOR  PURGE  GAS,  Rp(ft.lbf/lhn.R)*,Rp 

4820  INPUT  ’THE  AIR  CHOKE  DIAHETER .Dairchoke  ( ia)’,Dairch#k'e 

4830  INPUT  ’THE  HEATER  FUEL  CHOKE  DlANf TER  .Dhtfuchokefinl*  .Dhfchake 

4840  INPUT  ’THE  IGNITION  OXYGEN  CHOKE  DIAMETER, Dht»xchike(in)*.Dk«ch#ke 

4350  INPUT  ’THE  IGNITION  FUEL  CHOKE  DTArtFTEK , Di qnfuch o kp ( in )’  .fiif choke 

4860  INPUT  ’THE  PURGE  CHOKE  DIAMETER , Dpurncc^ o ke( i n ) ’ , Dqchsk e 

4370  INPUT  ’THE  DESIRED  NASS  FLOW  RATE  OF  AiR.HairdUbn/necP.Haird 

4880  INPUT  ‘THE  DESIRED  NASS  FLOW  RATE  OF  heater  FUEL,Nhfd( lbn/secI'.Hhfd 

4890  INPUT  ’THE  DF5IRFD  NASS  FLOU  RATE  OP  heater  OXYGEN, fihod ( lb*i/eec ) ’ .NNod 

4900  INPUT  ’THE  DESIRED  HASS  FLOU  RATE  OF  IGNITION  FUEL lbs/sec ) *,N*if  d 

4915  INPUT  ’THE  DESIRED  NASS  FI  OU  RATE  OF  PURGE , Hnd ( lb«/sec '- * , Npd 

4920  INPUT  *THE  INJECTION  GAS,Inj«ioa-.\ln]Ktq«l 

4938 

4*49  !*  CHECK  THE  INPUT  DATA  « 

4950  iHitiiiimmimiiiHmmtHdmiHHiHmiiKHHiHiHHiiHmt 

4960  Chancel;  ! 

4970  PRINT  USING  *g’ 

4980  PRINT  USING  "1 4A ,?A ,5X , 1 4A ,9A ,5X , 1 4A ,9A . 2X , 1 4A ,DDOD . DDDO“ •  *Testna=* ; Te<iTno 
*:  'Date-’;Oate<,’Fuelid*-‘;Fuehdi,  Pbar=";Fbar 

4990  PRINT  USING  *!4Al9A,SX,14A,9A,5X,14A,9A,5X,14A,9A*;’Heaterfuel=*;Heaterfue 
1$ .  "Iqm  ticnfuel  =  ‘ ;  Ian 1 1 1  on f up  1 J,  ‘Puree  oas=‘  :P«rnenast 

5000  PRINT  USING  *  1 4A , DDDDDCD . DDDD , 5X , 1 4h , DPDD . DODD , 5X , 1 4A , DDDD . DDDD* ; *Urf i  =  * ,y 
tfi.*Dc=’;Do,*lg=*;Lp 

5018  PRINT  USING  M 4A, DDDD. DDDD, 5X,14A, DODD, DODD* ;'Di=*;Di.*Dth=’;Dth 

5920  PRINT  USING  M4AIDDDD.DDDD15X,14A  DDDD . DDDD , 5X ,  1 4A . DD&D . 0DDD , 2X ,  1 4A , DD0D . D 

DDD';’THa=‘;Tna,’TMJ=’;Tni ,’Tnb='; Tub, ’Inns’ ;Tnp 

5030  PRINT  USING  *14A.  DDDD.  DDDD,5X,14A,DbDD.  DDDD  VDairch:'  e=*;Dairchoke,*Dhtfu 
choke=’:Dhfrhokn 

5040  PRINT  USING  *14A. DDDD. DDDD, 5X,14A, DDDD. DDDD*;*Dht»xchoke=*;Dhochoke,’I)Qnf 
iirhokes’;Difchoke 

5G5Q  PRINT  USING  •14A,DDDD,DDDD,;*Dptfrnechjke=‘;Dpchoke 

5060  PRINT  USING  ’14A, DDDD. DDD0,5X,14A, DDDD. DDd6,5X,J4A, DODD. DDDD*;*Cdair=*;C.1a 

ir ,’Cdh=*;C«lhf  "Cdho=";Cdrto 

5070  PRINT  USING  ’14A, DDDD. DDDD.5K.14A, DDDD. DDDD’ ;*Cdo=*.Cdn,*Cdif=*:Cd:f 
5030  PRINT  USING  ’14A, DDDD. DDDD, 5X.14A, DDDD. DODD, SX,1<A, DDDD, DDDD’ ;*G<nnahf:*  '■  G 
annahf , *Gannaif=';Gannaif 

5090  PR  TNT  USING  *14A,  DDDD. DODD*; ’Gannap=*;Gaiinap 

5100  PRINT  USING  ’1 4A, DDDD. DDDD, SX,  14A,DDDiJ , DDDD, 5X,  14A, DDDD, DDDD’; *Rhf=* ;Rh f , ’ 
Pifs'jRif . *Rp=’ ;Rp 

5110  PRINT  USING  *  1 4A , DDDD . DDDD ,5X , 1 4A , DDDD . DDDD ,5X , 1 4A , DDDD . DDDD* ;  *Knhf  s* ;  > «h f 
, 'Knifs'jKnif ,  *K«p=*;Kni) 

5120  PRINT  USING  *1 4A, DDDD. DDDD,5X,14A ,DDDD, DDDD*; *Knhi=*'Knho, *K«air-’ -.Km i- 
5130  PRINT  USING  ’14A, DDDD. DDDD, 5X.14A, DDDD  DD0D- ;’Haird=k;Haird  *T a rf= * • T i d 
5140  PRINT  USIHG  *14A, DDDD. DDDD.5X.14A, DDDD, DDDD. 5X , 1 4A, DDDD. DDDD, 2X , ]4A,D0i L  D 
DDD * ; *Mh f d= ' ; Mhfd ,  *Hhod=*;Hhod,  *Hifd-';ftifd,  ’Hpd=k;Hpd 
5150  PRINT  ‘INJECTION  GAS  IS* ,In jectaasO 

5160  ;  t 

5170  !*  VARIABLE  CORRECTION 

5180  I  . 

5190  PRINT  USING  *4/* 

5200  PRINT  ’CHECK  AIL  VALUES* 

5210  DTSP  ’HIT  'CONTINUE'  TO  PROCEED  TO  CORRECTION  OR  NEXT  SUBROUTINE* 

5220  PAUSE 

5230  INPUT  ’VARIABl F  OK?  <Y/N> * ,Zi$ 

5240  IF  2z$s*N’  THEN  GOTO  Change  van  able 
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4003  KDD=?p«a*/<Vpp^ax-VnpO ) 

4310  PR'INT  ,Kpp=“;Kcp 
4523  BFEP 

4033  INPUT  "REAPING  OKI  <Y/H)*,Z:$ 

4340  IF  Zz$-*N*  THEN  GOTO  Ppnaxcal 
4353  Peal:  ! 

40.30  IF  Ff =0 .  THEN  GOTO  Endcal 

4373  i**»m*x***i*m****xm*m»****x**m»*mm**mm****»m***»»* 
4030  PRINT  *»<CAL IBRATION  OF  F,  THE  THRUST  STAND  LOAD  CELL.**' 

4090  ixxxxx»xxx**xmxx*x*ix*xxtx*xx*x*i**»xx»xxxx*xm*xxxxxx*xm*x**xx»x 
4103  FOcal:  ! 

41 1 1  PRINT  'xmZERO  CALIBRATION***** 

4120  PRINT  'INSURE  THAT  THE  'ZERO'  TARE  WEIGHT  IS  ON  THE  TRAY’ 

4130  DISP  'HIT  CONTINUE  WHEN  RFADY * 

4143-  PAUSE 

4150  REMOTE  709 

4160  OUTPUT  ?09;'AC5" 

4170  OUTPUT  722; *T3* 

4130  FNTER  722; (if 0 

4190  PRINT  "Vffc'jVfO 

4230  INPUT  'READING  OR?  (Y/N>\Zz$ 

4710  IF  ZzS-'N*  THEN  GOTO  FOcal 
4225  Fnaxcal:  I 
4230  PRINT  USING  *@* 

4240  PRINT  “**  **CAl  I  BRAT  I  ON****" 

4250  PRINT  'APPLY  MAXIMUM  WEIGHT  TO  THE  TRAY* 

4260  INPUT  'ENTER  THE  MAXIMUM  WEIGHT  IN  LBS'.Fnai 
4273  DISP  'HIT  CONTINUE  WHEN  READY' 

4280  PAUSE 
4290  RFMOTE  709 
4300  OUTPUT  709;'AC5* 

4310  OUTPUT  722: 'T3* 

4320  ENTER  722;Vf*ax 

4330  PRINT  'Vfd.M^Vfnax ,’Ffiax=';Fnax 

4340  Kf=F*»*/(Vfwj-VfOJ 

4350  PRINT  ,Kf=*;Kf 

4360  BEEP 

43?0  INPUT  "READING  OK?  <Y/N)\Zz* 

4183  IF  Zz$=‘N*  THEN  GOTO  Fuaxcal 
4390  Endcal:  ! 

4400  PRINT  THIS  ENDS  THE  CAI IBRATIQNS  ■ 

4410  !xkxxxx***xxx*»xi**xx******x»x*mx******x*in**mmxtx»**x»x***o*x* 

4420  M3)  PRE-RUN  INPUTS,  FLOW  RATE  SET-UP 

4410  i«»xx!yxxxxxxxxxx*»xk»*x**ixxxxmxx'mm?x»»*x*ixmtx*titi*»m’t»x« 
4440  !A.  PRE-RUN  INPUTS 

4450  i*x*s*xi*»*x«»*x**x«*xi****x»xxmxx*x*»x******x«*#x*xx*x»*xmxxx**»x 

4460  Inoutoariables:  ! 

4470  INPUT  'DO  YOU  WANT  TO  INPUT  NEW  VARIABLES  <Y/N)',Yv$ 

4430  IF  Yv»-'N*  THEN  GOTO  Nochange 

4490  PRINT  'INPUT  THE  FOLLOWING  TEST  VARIABIES* 

4500  PRINT  'STRING  VARIABLES  MUST  BE  ENCLOSED  IN  QUOTATION  MARKS’ 

4510  INPUT  'THE  TEST  IDENTIFICATION  NUMBER ,A  STRING  VARIABlE*,Testno$ 

4520  INPUT  'TODAY'S  DATE  AS  MO. DAY. YEAR  A  STRING  VARIABLE  VDateO 

4530  INPUT  *THE  BAROMETRIC  PRESSURE'. Pbar 

4540  INPUT  'THE  FUEL  IDENTIFICATION,  A  STRING  VAR  I  ABIE  VFielid* 

4550  INPUT  'THE  AIR  HEATER  FUEL  TYPE, A  STRING  VAR  I  API  E  ‘.Keaterfuelt 
4560  INPUT  'THE  SFRJ  IGNITION  FUEL  TYPE , A  STRING  VARIABLE  ".IqnitionfueU 
4570  INPUT  'THF  PURGE  GAS  TYPE, A  STRING  VARIABLE  VPurqegast  ' 

4530  INPUT  'THF  INITIAL  FUEL  GRAIN  WEIGHT  (IBHJVUtfi 

4590  INPUT  'THE  INITIAL  FUEL  GRAIN  INTERNAL  DIAMtTER  (IN)*, Dp 

4600  INPUT  'THE  INITIAL  FUEL  GRAIN  LENGTH  (IN)\lp 

4610  INPUT  'THE  AIR  INI  FT  DIAMETER  (IN)'.Di 

4620  INPUT  'THE  MOTOR  THROAT  DIAMETER  (IfO'.Dth 

4630  INPUT  'THE  DESIRED  AIR  INLET  TEMPERATURE  <R)\Tid 

4640  INPUT  'THE  DESIRED  IGNITION  DELAY  TIME  (SEO'Jna 

4650  INPUT  'THE  DESIRED  IGNITION  TIME  (SEC)', Tin 

4660  INPUT  'THE  DESIRED  BURN  TIME  (SEC)\Tnb 

4673  INPUT  'THE  DESIRED  PURGE  TIME  (SEC) Vino 
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33? 0  EMTFR  722;Uph<max 

3330  PRINT  ‘Uphonax^iUphonax/Phonax^iPhonax 
3340  Koha^Phonax/IVphoflai-UphoO) 

3350  PRINT  ,Kpho=*;kpha 
3360  BEEP 

3370  INPUT  ‘READING  OK7  <Y/N>‘,Zzi 
3380  IF  ZzJ-‘N‘  THEN  GOTO  Phowixcal 
3390  Pifcal : < 

3410  PRINT  ‘“CALIBRATION  OF  Pif,  THE  SFRJ  IGNITION  FUEi.  PRESSURE  TRANSDUCER** 1 
3420  !**m***m*m*m*m**xn******»xxxm***m*m**m*******)t***m»** 
3430  PifOcal :  ! 

3440  PRINT  ‘****ZERO  CALIBRATION****’ 

3450  PRINT  ‘INSURE  THAT  NO  PRESSURE  IS  APPLIED  TO  THE  TRANSDUCER* 

3460  DISP  ‘HIT  CGNTINUE  UHEN  READY" 

3470  PAUSE 
3480  REMOTE  709 
3490  OUTPUT  ?09;‘AC6* 

3500  OUTPUT  722: ‘T3‘ 

3510  ENTER  722:0p  if  0 

3520  PRINT  *Vpifi)=*;Upif8 

3530  INPUT  ‘READING  OK?  (Y/N)*.Zz$ 

3540  IF  Zz<r‘N*  THEN  GOTO  PifOcal 
3550  Pifnaxcal:  ! 

3560  PRINT  USING  ‘@‘ 

3570  PRINT  ‘****CALIBRATION* »**" 

7'10  PRINT  ‘APPLY  THE  MAXIMUM  PRESSURE  USING  DEAD-WEIGHT  TESTER* 
jj90  INPUT  ‘ENTER  THE  MAXIMUM  PRESSURE  IN  psig‘,Pifnax 
3600  DISP  ‘HIT  CONTINUE  UHEN  READY* 

3610  PAUSE 

3620  REMOTE  709 

3630  OUTPUT  709; ‘AC6‘ 

3640  OUTPUT  722; ‘T3‘ 

3650  ENTER  722;Clpifnax 

3660  PRINT  •Vpif«ax=*;Upifnax.*Pifhax=‘;Pifnax 
3670  Knif=Pifrtax/(Vpifnax-Up it  0) 

3680  PRINT  ‘Kpif=\l(pif 
3690  BEEP 

3700  INPUT  ‘READING  OK?  <Y/N)‘,Zzt 
3710  IF  Zzt=‘N‘  THEN  GOTO  Pifnaxcal 
3720  Ppral :  ! 

3730  i  *m»«m»**»m»»**»i*«**t*m»»mm«mx**»mmt*»***tH***m 
3740  PRINT  ‘“CALIBRATION  OF  Pp ,  THE  SFRJ  PURGE  GAS  PRESSURE  TRANSDUCER**’ 

3750  >  ““  »*»**»»*****»  *mi*«t»«m»«»»**»*m*****tx»»t*m«**»m**xt*» 

3760  PoOcil :  ! 

3770  PRINT  ‘*»**ZERO  CAl TBRATION****" 

3763  PRINT  ‘INSURE  THAT  NO  PRESSURE  IS  APPLIED  TO  THE  TRANSDUCER* 

3790  CIS?  "HIT  CONTINUE  WHEN  READY* 

3600  PAUSE 

3810  REMOTE  709 

3920  OUTPUT  709;*AC7‘ 

3330  OUTPUT  722; *T3‘ 

3840  ENTER  722;UppO 

3850  PRINT  ‘Vpp0=M'pp0 

39o0  INPUT  ‘READING  OX?  <Y/N)‘.Zz» 

3870  IF  Zzt-‘N*  THEN  GOTO  PpOcal 
3890  Prnaxcal:  1 
2890  PRINT  USING  ‘g* 

3900  PRINT  ‘**  “CAL  I  BRAT  I  ON*  »*  *  * 

3910  PRINT  ‘APPLY  THE  MAXIMUM  PRESSURE  USING  DEAD-WEIGHT  TESTER* 

3920  INPUT  ‘ENTER  THE  MAXIMUM  PRESSURE  IN  psig',Pp«ai 
3930  DISP  "HIT  CONTINUE  UHEN  READY’ 

3940  PAUSE 

3950  REMOTE  709 

3960  OUTPUT  709;*AC7‘ 

3970  OUTPUT  722; ‘T3* 

3980  ENTER  722;Vppaax 

3990  PRINT  ‘Uoonax^’iUppnax.'Ppnax^'iPDflax 
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v,  v/  ■ ; 

A  k  • 


jLru., 


.A."**  «"  .» v%*  u*’*  /■*  -*N  », 

k  ■  .  k-t  k  "  -  k  l~  t.  a  t. 
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2640 

2650 

2660 

2S“0 

2660 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2730 

2790 

2900 

2910 

2920 

2830 

2840 

2850 

2960 

2870 

2830 

2990 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2990 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3120 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3233 

3240 

3250 

3260 

3270 

3290 

3290 

2300 

3310 


WATT  2 

OUTPUT  72?; "T3" 

ENTER  722;Vptmax 

PRINT  "Vphnax=* ;Uphnax . *Ph«a i=" ;PT,nax 
Koh=Phmx/(Vph;iax-VphO) 

PRINT  ’Kph=';Kph 
BEEP 

INPUT  'READING  OK?  <Y/N>\Zz$ 

IE  Zzt='N*  THEN  GOTO  Ph/iaxcal 
Phfcal: ! 

PRINT  '^CALIBRATION  OF  Phf,  THE  AIR  HEATER  FUEL  PRESSURE  TRANSDUCER**" 

!  ***************  I*  ****************  **<**y**2t  |{22«*  X  Ityyyiyyji  {yyy  yy  1 1  < 
Phf Oca  1 :  ! 

PRINT  '****ZERO  CAl.IBSATION*!**' 

PRINT  'INSURE  THAT  NO  PRESSURE  IS  APPLIED  TO  THE  TRANSDUCER" 

DISP  'HIT  CONTINUE  WHEN  READY* 

PAUSE 
RENOTE  709 
OUTPUT  709; 'AC3* 

OUTPUT  722  *T3' 

ENTER  722;0nhf 0 

PRINT  'Uphfll=*;Vphf0 

INPUT  “READING  OK?  (Y/N)',Zz* 

IF  Zz$="N“  THEN  GOTO  PhfOcal 
Phf«axcal:  1 
PRINT  USING 

PRINT  '****CALTBRATION*<**' 

PRINT  'APPLY  THE  MAXIHUrt  PRESSURE  USING  DEAD-WEIGHT  TESTER* 

INPUT  'ENTER  THE  hAXIHUH  PRESSURE  IN  psiqVPhfuax 
DISP  'HIT  CONTINUE  WHEN  READY' 

PAUSE 

REHCTF  709 
OUTPUT  709; 'AC3' 

OUTPUT  722; 'T3* 

ENTER  722;vphf«ax 

PS1HT  'Vphfnax=* jVphf nax  ,*Phf «ax=' ;Phf nax 
Kphf-Phfflax/(VphF«ax-Uphh) 

PRINT  "Kphf=*;Kphf 
BEEP 

INPUT  'READING  OK?  <Y/N>\Zz$ 

IF  Zz$='N*  THEN  GOTO  Phfnaxcal 
Phocal : ! 

i*i*>m<ixtii**i2*xi*xii*2»y(**»*y«»m{««m»»i»x*ii***»««mn«ii«2>m 
PRINT  '^CALIBRATION  OF  Pho,  THE  AIR  HEATER  OXYGEN  PRESSURE  TRANSDUCER**" 
!«**x*>ii*«tt«m*mixti2i*m*»«f*x*x2it«x»*2!**i«mmi<i*i*2***i(i«*2 
PboOcal;  ' 

PRINT  **x*»ZERO  CAl  IBRATION****' 

PRINT  'INSURE  THAT  NO  PRESSURE  IS  APPLIED  TO  THE  TRANSDUCER" 

DISP  'HIT  CONTINUE  WHEN  READY' 

PAUSE 

REMOTE  709 
OUTPUT  709; “AC 4 • 

OUTPUT  722;'T3' 

ENTER  722;0phoQ 

PRINT  'Uphold' ;Uph»0 

INPUT  'READING  nk?  <Y/N>'  ,Zr$ 

TF  hU‘ N'  IHEN  GOTO  PhoOcil 
Ph  onaxcal :  ! 

PRINT  USING  *8' 

PRINT  ■****CALIBRATION****' 

PRINT  'APPLY  THE  MAXIMUM  PRESSURE  USING  DEAD-WEIGHT  TESTER' 

INPUT  'ENTER  THE  MAXIMUM  PRESSURE  IN  psxq'.Phonax 
DISP  'HIT  CONTINUE  WHEN  READY' 

PAUSE 
REMQTF  709 
OUTPUT  709;'AC4* 

OUTPUT  722; 'T3‘ 


4  7 


I960  KDa=(Pa«ax>/(  C*ra«d  x-VpaO ) 

1970  PRINT  'Kpa=  ‘;kpa 
19SC  BEEP 

1990  INPUT  ‘READING  OK 7  <Y/N)‘,Zi* 

2000  IF  Zit=“N‘  THEN  GOTO  Pascal 
2010  Prcal: ! 

2020  !m*m**»mm**m*m**m***»m**mm**mmmmmmx*M** 
2030  PRINT  ‘^CALIBRATION  OF  Pc,  THE  SFRJ  MOTOR  CHAMBER  PRESSURE  TRANSDUCER**" 
2040  i  m*****mmm****m  mm**xm***mmm**mm**» 

2050  PcOcal:  ! 

2063  PRINT  ■***»  ZERO  PRESSURE  »***• 

2070  PRINT  ‘INSURE  THAT  NO  PRESSURE  IS  APPLIED  TO  THE  TRANSDUCER* 

2030  D1SP  ‘HIT  CONTINUE  WHEN  READY1 
2090  PAUSE 

2100  REMOTE  709 
2110  OUTPUT  709; ‘ACO ‘ 

2120  WAIT  2 

2130  OUTPUT  722:  ‘T3* 

2140  ENTER  722;0pcO 

2150  PRINT  ‘UpcO-VVpcQ 

21 tO  PEEP 

2170  INPUT  ‘READING  OK7  (Y/N>\Zz* 

2130  IF  Z:*-‘N‘  THEN  GOTO  PcOcal 
2190  Pcnaical:  ! 

2200  PRINT  USING  ‘@‘ 

2210  PRINT  ‘  ****  CALIBRATION  »»**• 

2220  PRINT  ‘APPLY  THE  MAXIMUM  PRESSURE  USING  DEAD-WEIGHT  TESTER* 

2230  INPUT  ‘ENTER  THE  MAXIMUM  PRFSSURE  IN  psiq‘,Pc«ax 

2240  DISP  ‘HIT  CONTINUE  WHEN  READY* 

2250  PAUSE 


REMOTE  709 
OUTPUT  709;‘AC3‘ 

WAIT  2 

OUTPUT  722; *T3‘ 

ENTER  722;Opc*ax 

PRINT  'Upcnax^jUDcnax  'Pc«ax=‘;Pcnax 
Koc=Pc«ax/(Vnctiax-'JpcO) 

PRINT  ‘Kpc=  *;Kpc 
BEEP 

INPUT  ‘READING  0X1  <Y/N)*,Zz» 

IF  Zi*=‘N‘  THEN  GOTO  Pcwxcal 
Phcal: 1 

PRINT  ‘^CALIBRATION  OF  Ph,  THE  SFRJ  MOTOR  HEAD-END  PRESSURE  TRANSDUCE:!* * ‘ 
PhOcal:  ! 

p g  t ur  pgr qci jl* r « « ■ 

PRINT  ‘INSURE  THAT  NO  PRESSURE  IS  APPLIED  TO  THE  TRANSDUCER* 

DISP  "HIT  CONTINUE  WHEN  READY* 

PAUSE 


2460  REMOTE  709 


2470  OUTPUT  709; ‘ACT 
2430  WAIT  2 
2490  OUTPUT  722; ‘T3‘ 
2580  ENTER  722;Uph0 
2510  PRINT  ‘Vph 0= * ; Vph 0 
2520  BEEP 


2530  INPUT  ‘READING  0X7  (Y/N)*.Zzt 
2540  IF  Zz$=‘N*  THEN  GOTO  PhOcal 
2550  Phnaxcal :  ! 

2560  PRINT  USING  ‘8‘ 

2570  PRINT  ‘»***CALIBRATION***»‘ 

2530  DISP  ‘APPLY  THE  MAXIMUM  PRESSURE  USING  DEAD-WEIGHT  TESTER* 
2590  INPUT  ‘ENTER  THE  MAXIMUM  PRESSURE  IN  PsiqVPfmax 
2600  DIGP  ‘HIT  CONTINUE  WHEN  READY* 

2610  PAUSE 


2620  REMOTE  709 
2630  OUTPUT  709:‘AC1‘ 
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1350  r  01609  AND  Volts!  .00831  THEM  T=< (Volts-. 0560?)/. 030032 

?u?n 

1  -60  Ic  7  •!  •  •  >=.03831  AMD  Uolts( . 91056  THEN  T=< (Volts-. 08811  )/. 000 M2 

5i+°^ri 

1370  IF  Qolts>=.B105S  AMD  Volts!. 81295  THEN  T-UVolts-, 01056)/. 000022 

?)+?^0 

1330  IF  Volts)*. 01285  AMD  Volts! , 01518  THEN  T=( (Volts-. 01285)/. 000023 

3) +1040 

13?0  IF  Volts>=. 01513  AMD  Volts!, 81752  THEN  T=( (Volts-. 01518)/. 000023 

4 )  +1 1  SO 

U00  IF  Volts)*. 01752  AMD  Volts!, 01988  THEN  T=( (Volts- . 0175?)/ . 000023 

6)*1?S0 

1410  IF  Volts)=. 81983  AND  Volts!, 9?225  THEN  T=( (Volts-. 01988)/ . 000023 

71+1360 

1420  IF  Volts). 82225  THEN  GOTO  Toohioh 

1430  RETURN 
U40  Trohigh;  1 

1410  PRINT  "TEMPERATURE  SET  AT  1468  R* 

1  460  PR I'.I  ■[=•. I 

1  470  T->  4;  f 

1430  3-.':.r  500, .  1 

1  480  P  '  ,1 

1700  pL ~ft9, .  1 

r.io  re'“cm 

1520  T ;  --seal:  i 

1540  1 1 7)  IRA*  GI.Cn  r ALIPRATIONS 
lr5C  1 

1540  •  THERE  APE  4  FR?CSJRF  TRANSDUCERS  AMD  ONE  LOAD  CELL  FOR  THRUST  WHICH 
1570  i (m3!  EE  CALIF-WED,  TRANSDUCER  LINEARITY  MUST  EE  VERIFIED  FFFOPE  THIS 
1580  TALIfiRAlirN  PROCEDURE  IS  EMPLOYED,  THE  ORDER  OF  CALIBRATION  IS  AS 
1590  'f SHOWS:  Pi,  Pc  Ph.  Phf,  PMo.  Pif,  Po,  F 

1600  UHE  FOLLOWING  TWO  LIMES  SET  UP  722  AMD  709  FOR  DATA  ACQUISITION* 

1610  CLEAR  709  !  CLEAR  3497A  DATA  AQUISITION/CONTROL  UNIT 

1620  Ci Ef,R  72?  '  CLEAR  3456A  DIGITAL  VOLTMETER 

I63C  REMOTE  709  !  MAKE  3497A  UNIT  TO  REMOTE  MODE 

1440  OUTPUT  722; "L1R31STMZ1 10STIT4QX1 *  !  10  READING  PER  TRIGGER  AND  STORE 

1650  Pacal :  1 

1640 

1470  PRINT  '««  CALIBRATION  OF  Pa,  THE  AIR  SONIC  CHOKE  PRESSURE  TRANSDXH " 

1630  I  HHIHHHHHHHmiHHmilHKHmHHilHHiHimHHHtmai 
1690  PaOcal:  ' 

1700  PRINT  *  **»««  ZERO  PRESSURE  ****** 

1710  PRINT  'INSURE  THAT  NO  PRESSURE  IS  APPLIED  TO  THE  TRANSDUCER* 

1720  DISP  'HIT  CCNTINUF  WHEN  READY  TO  TAKE  ZERO  READING* 

1730  PAUSE 
1740  REMOTE  709 

1750  OUTPUT  709;  "AC2*  !  AQ'JIRE  CHANNEL  2 

1?60  WAIT  2 

1770  OUTPUT  722; *T3*  !  IMITATE  SINGLE  TRIGGER 

1730  ENTER  722;Voa0  !  READ  VOLTAGE 

1790  PRINT  "VoaO-VVsaO 
I8C0  BEEP 

1810  INPUT  'REAPING  OK?  <Y/N)*,Zz» 

1820  IF  Z;t-*N*  THEN  GOTO  PaOcal 
1830  Panaical:  1 

1840  PRINT  US I MG  *?'  '  Cl  EAR  SCRFEN 

1850  PRINT  "  »♦**»  CALIBRATION  »**«*• 

1360  PP INT  -APPLY  MAXIMUM  PRESSURE  USING  I  HE  DEAD-WEIGHT  TESTER* 

1370  INPUT  -FrtTFP  THF  MAXIMUM  FRESSURE  IN  p=iq*. Pjmjx 
1890  DISP  -HIT  CONTINUE  WHEN  READY* 

1890  PAUSE 

1930  REMOTE  709 

1910  OUTPUT  709 ,  *AC2 * 

1920  WAIT  2 

1930  OIJTFUT  722;  *13" 

1940  ENTER  7?2;'.'oa*a« 

1950  PRINT  'Vcanai^V.'canai.'PaMai1  ';Pa"dX 


690 

!  Tna 

TIME  BETWEEN  SFRJ  AIR  FLOW  AND  IGNITION,  sec 

700 

!  Tub 

BURN  TIME  AFTER  Tax.  sec 

710 

!  Txi 

IGNITION  DURATION  AFTER  T«a,  sec 

720 

!  Tad 

PURGE  DURATION  AFTER  Te.b,  sec 

730 

!  Tp 

TEMPERATURE,  PURGE  MS  SONIC  CHOKE,  R 

740 

750 

763 

'  Wifi 

i 

i 

INITIAL  FUEL  GRAIN  WEIGHT,  Lbn 

770 

BEEP  1000,.  1 

780 

PRINT  USING  ’8’ 

790 

PRINT  USING  *6/’ 

800 

PRINT  ’ 

1.2  Volts  MAXIMUM  into  Acquisition  Sv 

813 

!  I HE  RECORDED  VARIABLES  (VOLTAGES)  AND  LOCATIONS  ARE: 

820 

830 

!  (NOTE:  THE  MAXIMUM  ALLOWABLE  VOLTAGE  INTO  M  SYSTEM  IS  1.2  VOL 

i 

841 

!  VARIABLE 

3497  DACU  SCANNER  NUMBER  0 

350 

i 

869 

'  Fi 

1  “  "  “  "  "  ‘ 
b. 

870 

!  Pc 

0 

880 

!  Ph 

1 

890 

!  Phf 

3 

900 

'  Pho 

4 

910 

'  Pif 

6 

920 

1  Pp 

7 

930 

!  F 

5 

940 

'  Ta 

9 

950 

'  Thf 

10 

969 

!  Tho 

11 

970 

'  Ii 

8 

983 

!  Tif 

12 

990 

1000 

!  To 

13 

ALL  FLOW  RATES  ARE  CALCULATED  USING  THE  ONE-DIMENSIONAL,  ISENTROPIC 
FLOU  EXPRESSIONS  WITH  FIXED  PROPERTIES,  SHALL  SONIC  NOZZLES  HAVE 
MEASURED  DISCHARGE  COEFFICIENTS.  THE  AIR  FLOW  NOZZLE  USES  AN  ASSUMFD 
DISCHARGE  COEFFICIENT  (C<U  OF  4.9? . 

H  (LBN/SEC)=Cd*P*A*K«/T‘.5 

Kn  IS  THE  GAS-DEPENDENT  SONIC  CHOKE  FLOW  RATE  CONSTANT 
Kn=SQR(<GaMAa*Gc/R)*(2/(Gaf«ta+l )  )'((GanM+1  )/(Ga««a-l))) 

APPROPRIATE  CONSTANTS  ARE: 


1150 

1160 

! 

i 

GAS 

MOLECULAR  WT. 

GAS  CONST, 

CP 

GAMMA 

Ka 

1170 

i 

AIR 

29.0 

53,3 

,240 

1.40 

.5320 

1180 

i 

02 

32.0 

43,3 

,217 

1,49 

.558  9 

1190 

i 

CH4 

16,03 

96.4 

.593 

1,32 

.3876 

1200 

i 

C2H4 

28,03 

55.1 

,400 

1 ,22 

.4995 

1210 

I 

ARGON 

39,9 

38.7 

.124 

1.67 

.6626 

1230  ! ALL  THERMOCOUPLES  USFD  ARE  CHROHEL  vs  ALUMFL  (TYPE  K)  WITH 
1240  !EI  ECTRONIC  ICE  POINTS.  TEMPERATURE  READINGS  (VOLTAGES)  ARE 
1250  'CONVERTED  TO  DECREES  RANKINE  (R)  PER  ’INDUSTRIAl  INSTRUMENTATION’  BY 
1260  !D.P,  ECKMAN  (PAGE  369),  THIS  CALGU!  ATION  IS  PERFORMED  IN  SUBROUTINE 
1270  'Teak,  TEN  VOL  I  AGE  INTERVALS  ARE  USED  BFIWEEN  460  AND  1460  R, 

1280  Gc  =32 .174 

1290  <o=0  !  POST  RUN  CONTROL  FLAG 

1300  GOTO  Transcal 
1310  Tralc:  ' 

n?0  IF  Voltsk  00153  THFN  T=  ( (Vo  1  Ts+ .  00068) /. 0000220 >+460 

1330  IF  Voltsk. 00153  AND  Volts!. 00332  THFN  T=( (Volts- ,01151)/. OOBdkl 


1310  Irak: 

1320 

1330 

0)+560 

1340 

7) +860 


IF  Volts>=. 00382  AND  Volts! ,00809  THEN  T=((Volts-. 03382)/. 000022 


APPENDIX  A 

COMPUTER  PROGRAM  FOR  EXPERIMENT  CONTROL  AND  DATA  REDUCTION 


10 

20 

30 

40 

50 

60 

70 

88 

90 

100 

110 

120 

130 

149 

150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
298 
300 
310 
320 
330 
340 
350 
360 
370 
330 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
498 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 


ISFRJTEST 

! SOLID  FUEL  RAMJET  DATA  ACQUISITION  AND  DATA  REDUCTION  PROGRAM , 
! THIS  PROGRAM  IS  DIVIDED  INTO  FIVE  PARTS: 

!  (1)  VARIABLE  DEFINITIONS  AND  NOMENCLATURE 

!  (2)  TRANSDUCER  CALIBRATIONS 

!  (3)  PRE-RUN  INPUTS, FLOW  SET-UPS 

!  (4)  THE  TEST  SEQUENCE  AND  DATA  COLLECTION 

!  (5)  POST-RUN  OPERATIONS 

i(l)  VARIABLE  DEFINITIONS  AND  NOMENCLATURE 


SYMBOL 
A  _ 

C3air 

Cdhf 

Cdho 

Cdif 

Cdo 

Cf 

Cstarth 

Cstarair 

Dairchoke 

Date* 

Dhfchoke 

Dhochoke 

Di 

Difchoke 

Do 

Doctioke 

Dtti 

Dtheff 

F 

Fuelid5 

Cc 

Heaterfueli 

Ianxtiiinfuelt 

KHair 

Kuhf 

Knho 

Kmf 

Km> 

Ld 

Mair 

Maird 

Mhf 

Hhfd 

Mho 

Mhod 

Mif 

Mifd 

Mo 

Mod 

Pa 

Pbar 

Pc 

Ph 

Phf 

Pho 

Pif 

Po 

PurowasO 

Ta 

Tesrno* 

Thf 

Tho 

Ti 

Tid 

Tif 


DEFINITION 

ANALOG  CHANNEL  NUMBER 

DISCHARGE  COEFFICIENT, “AIR  SONIC  CHOKE 

DISCHARGE  COEFFICIENT,  HEATER  FUEL  SONIC  CHOKE 

DISCHARGE  COEFFICIENT,  OXYGEN  MAKE-UP  SONIC  CHOKE 

DISCHARGE  COEFFICIENT.  IGNITION  FUEL  SONIC  CHOKE 

DISCHARGE  COEFFICIENT,  PURGE  GAS  SONIC  CHOKE 

THRUST  COEFFICIENT 

THEORETICAL  C»,  FT/SEC 

C*  FOR  AIR  ROU  EASED  ON  Dtheff 

AIR  SONIC  CHOKE  DIAMETER 

Test  Date  Mo-Dav-Yr 

AIR  HEATER  FUR  SONIC  CHOKE  DIAMETER 

OXYGEN  MAKE-UP  SONIC  CHOKE  DIAMETER 

MOTOR  INLET  DIAMETER,  IN, 

IGNITION  FUR  SONIC  CHOKE  DIAMETER 
MOTOR  FUR  PORT  DIAMETER, IN. 

PURGE  GAS  SONIC  CHOKE  DIAMETER 

MOTOR  EXHAUST  NOZZLE  THROAT  DIAMETER, IN. 

EFFECTIVE  THROAT  DIAMETER, IN. 

TUPI1CT 

FUEL  IDENTIFICATION 
GRAVITATIONAL  CONSTANT  (32.174) 

FUEL  IDENTIFICATION 

SFRJ  IGNITION  FUR  I.D 

AIR  SONIC  CHOKE  FLOU  RATE  CONSTANT 

HEATER  FUEL  SONIC  CHOKE  ROU  RATE  CONSTANT 

OXYGEN  MAKE-UP  SONIC  CHOKE  FLOW  RATE  CONSTANT 

IGNITION  PJR  SONIC  CHOKE  FLCU  RATE  CONSTANT 

PURGE  GAS  SONIC  CHOKE  FLOW  RATE  CONSTANT 

FUR  GRAIN  LENGTH,  IN, 

AIR  ROU  RATE ,  LSN/SEC 
DESIRED  AIR  FLOH  RATE,  Lbn/sec 
HEATER  FUR  ROU  RATE.  O/sec 
DESIRED  HEATER  FUR  FLCU  RATE  Lbn/sec 
HEATER  OXYGEN  ROU  RATE,  Lbn/sec 
DESIRED  HEATER  OXYGEN  ROU  RATE ,  Um/sec 
IGNITION  FUR  FLOU  RATE,  LbA/sec 
DESIRED  IGNITION  FUEL  ROU  RATE,  lin/see 
PURGE  GAS  FLOU  RATE,  Lb*/ sec 
DESIRED  PURGE  GAS  ROU  SATE ,  lb«/sec 
PRESSURE.  AIR  SONIC  CHOKE,  Psia 
BAROMETRIC  PRESSURE,  Psia 
PRESSURE,  CHAMBER.  Psia 
PRESSURE,  MOTOR  HEAD-END  °sia 
PRESSURE.  HEATER  FUR  SONIC  CHOKE.  Psia 
PRESSURE,  HEATER  OXYGEN  SONIC  CHOKE,  Psia 
PRESSURE,  IGNITION  FUEL  SONIC  CHOKE,  Psia 
PRESSURE,  PURGE  GAS  SONIC  CHOKE,  Psia 
PURGE  GAS  I.D 

TEMPERATURE,  AIR  SONIC  CHOKE,  R 
TEST  1,3  NO. 

TEMPERATURE,  HEATER  PJR  SONIC  HOKE ,  R 
TEMPERATURE,  QXXYCEN  NflkE-jP  SONIC  CHOKE,  R 
TEMPERATURE.  MOTOR  AIR  INLET,  i 
TEMPERATURE,  DESIRED  MOTOR  AIR  INLET  R 
TEMPERATURE.  IGNITION  PJR  SONIC  CHOKE,  R 
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VI.  CONCLUSIONS  AND  RECOMMENDATIONS 


Additional  tests  using  fuel-wall  and  step  face 
injection  of  oxygen,  gaseous  fuel  and/or  heated  air  should 
be  conducted  to  verify  the  initial  results  found  in  this 
investigation.  However,  the  initial  data  from  this 
investigation  indicates  that  gaseous  injection  is  not  a 
viable  tecnique  for  fuel  regression  rate  control. 

Fuel  regression  rate  was  found  to  be  quite  sensitive  to 
small  amounts  of  inlet  air  swirl  without  large  changes  in 
combustion  efficiency.  Additional  testing  is  recommended. 


7210  PRINT  USING  *  1 1 A , DD . DDDDD* ; “Ha ir m jec t= * j Mho 
7220  PRINT  USING  ■  1 SA , DO . DDDDD - ; *Mho  DESIRED=*;Mnod 

7230  Ratit=Hho/Nhod 

7240  PRINT  USING  *33A,  DDDD . DDDD , 3X , 4A , DG'DD . DD ,  1  A* ; "Hho/Hho  DESIRFD=* .Rat 

io.*Tho=“;Tho,*R- 

72$fl  Pq=Ph  o~Pb  ar 

7260  PRINT  USING  "5A , DDDD . DD , 1 X , 5A ,5X , 4AJDDDD . DD , t X ,2A* ; "Ph o=‘ ;Pg ; *Psi q ■ 

•  "Tho= “  •  Th  o  ■  "R "  '  ' 

^270  '  ’INPUT  *IS  THE  HEATER  OXYGEN  FI QU  RATE  ENOUGH?  <Y/N>?\Xx$ 

7280  IF  Xi«=V  THEN  GOTO  Phofin 

7290  Phonew=(PhG*Mhod/Hb<i)-Pbar 

7300  PRINT  USING  "1 4A , DDDD ,  DD ,  IX ,4A* ; 'RESET  Pha  TO  *;Phonew;*Psiq* 

7310  D13P  -HIT  CONTINUE  AFTER  RESET  Pho* 

7320  PAUSE 

7230  GOTO  Phoset 

7340  Phafin: ! 

7350  OISP  ‘HIT  CONTINUE  TO  PROCEED  TO  NEXT  FLOW  RATE  SET  UP " 

7380  PAUSE 
7270  Phoskip:  ! 

7380  PRINT  USING  •(?* 

7390  INPUT  ‘DO  YOU  WANT  TO  PRESET  THE  IGNITION  FUEL  FLOW  RATE?<Y/N>\Z7* 

7400  IF  Z2*=*N-  THEN  GOTO  Pifskip 

7410  i  »*#*<*»*  *m*«m****»*m»»« 

7420  PRINT  '  SET  THE  DESIRED  VALUE  OF  Pif  USING  THE  HAND  LOADER /PRESSURE  C-ACE' 
7430  i  *m***m*m**»*m**  **  ****  mma  *  mu  *<******»**»*»«  »*»***»  matt** 

7440  DISP  'HIT  CONTINUE  WHEN  READY1 
7450  PAUSE 
7460  Pifset : ! 

7470  PRINT  "MANUALLY  TURN  ON  ‘  ION.  GAS  '  SWITCH* 

7480  DISP  *  HIT  CONTINUE  WHEN  READY" 

7493  PAUSE 

7508  OUTPUT  709; "ACS" 

7510  WAIT  1 

7520  OUTPUT  722;  *T3" 

7530  ENTER  722;Vpif 
7548  OUTPUT  709;*AC12* 

7550  OUTPUT  722; "T3" 

7560  ENTER  722;0tif 
7570  BEEP 

7580  PRINT  "MANUALLY  TURN  OFF  'IGN  GAS'  SWITCH" 

7590  DISP  "HIT  CONTINUE  TO  PROCEED” 

7600  PAUSE 

7610  Pif=CJpif-Vpif01*Kpif+Pbar 
7620  Volts=Vtlf 
7630  GOSUB  Tcalc 
7640  TIM 

765Q  Mif=X«if*Cdif*Pif*.7854»(Difchoke',2)/(Tif  *  .5) 

7660  PRINT  USING 

7670  PRINT  USING  "4A,DD,DDDDD* ;"Mif-" ;Mif 

7680  PRINT  USING  *15A(DD,DDDDD‘;"Mif  tESIRED=*;Kifd 

7690  Ratio-Mif/Mifd 

7700  _  PRINT  USING  " 1 7A , D . DDD , 3X , 4A , DDDD . ODD , 1 A* ; *Mi f /tti f  DESIRED=*;Rati#,*Tif=* 
hW  8Pa=Pif-Pbar 

7720  Mint  USING  *4A,DB0D.DD,lX,4A,5X,4A;DDDD.DD,lX,lAVPif=*;Pq;*Pisq*;*Tif= 

7738  ’  INPUT  "IS  THE  SFRJ  IGNITION  FUEL  FLOW  RATE  ACCURATE  ENOUGH?  (Y/N)\Xx$ 
7740  IF  Xx *= " Y "  THEN  GOTO  Piffin 
7750  Pifneu=(Pif*Mifd/Mif 1-Pbar 

7760  PRINT  USING  "12A, DDDD, DD, IX. 4A"; "RESET  Pif  TO” ; P a fnew; "Psi q " 

7770  DISP  "HIT  CONTINUE  AFTER  RE&T  OF  Pif" 

7780  PAUSE 

7790  GOTO  Pifset 

7800  Piffin: ! 

7810  MSP  "HIT  CONTINUE  TO  PROCEED  TO  NEXT  FLOW  RATE  SET  UP* 

7820  PAUSE 

7830  Pifskin:  ! 

7840  PRINT  USING  "9* 
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7850  INPUT  ‘DO  YOU  WANT  TO  PRESET  THE  PURGE  FLOW  RATE?  <Y/N>*,Zzl 

7889  IF  Z:5=*N*  THEN  GOTO  Ppskip 

7879  umm**m*m**m*m**mm*****m»***m**»om**m»*»tm«»it« 

7S3G  PRINT  ‘SET  THE  CESIERD  VALUE  OF  PC  USING  THE  HANDLDADER/PRESSURE  GAGE* 

7890 

7909  DISP  ’HIT  CONTINUE  WHEN  READY* 

7910  PAUSE 

7929  Ppset: ! 

7930  CLEAR  709 

7940  OUTPUT  799 ;*DC1 9,1* 

7950  WAIT  2 

7989  OUTPUT  799;*AC7* 

7970  OUTPUT  722; *T3* 

7963  ENTER  722:Vpo 

7998  OUTPUT  709;5ACI3* 

8009  OUTPUT  722 : * T3 " 

8C10  ENTER  722:Vfp 

8929  OUTPUT  709 j *0010,1* 

8030  Pp= ( ypp-yppfl ) *Kpp+Pb  ar 

8040  Volts-Vtp 

8050  C0SU8  Tcalc 

8040  To=T 

8070  Mp-Xnp*Cdp*Pp»,7S54*(Cpchtke‘2)/(Tp*.5) 

8089  PRINT  USING  '*?* 

8090  PRINT  USING  *3A,DD.DDDDD*;*Np=*;Hp 

8100  PRINT  USING  *l3A.DD.DDD0Dl;*Hp  DESIRED=" ;Mpd 

8110  Ratio-Np/Mpd 

8129  PRINT  USING  *UA,D.DD,3X,3A,DDDD.DD,lAyKp/Mp  DESIRED  =** ;Rati a , *Tp=“  Tp 

dl 30  BEEP 

8H0  Pq-Pp-Pbar 

8'.50 ^  _  PRINT  USING  ■3A,DDED.DD,lX,4A,3X,4A)DDDD.DD,1X,1A*;*Pp=*;Pg;*P5iayTp=* 

duO  INPUT  *IS  THE  PURGE  GAS  FLOW  RATE  ACCURATE  ENOUGH?  (Y/N)*,Xxt 

8170  IF  X x $=  * Y "  THEN  GOTO  Ppfin 

8180  Ppt\e«-<Pp»Npd/MpY-Pbar 

8199  PRINT  USING  *UA.DDDD.DD,1X,4A  *:*RESET  Pp  TO’jPpnew; *Psig* 

6200  DISP  "HIT  CONTINUE  AFIER  RE&ET  6f  Pp* 

8210  PAUSE 

8225  GOTO  Ppsel 

8230  Ppfin:  ! 

8240  Ppskip:  ! 

8250  PRINT  ‘THIS  COHPLETES  PRE-RUN  SET-UP* 

8243 

R2"3  !  (4)  THIS  PORTION  OF  THE  PROGRAM  RUNS  THE  TEST  AND  COIIECTS  THE  DATA 

8289  1  HMiioiiHiiiHKdmiimoimmmHimiHoiomHimxoiHHXi 

8290  ! 

8^C0  PRINT  USING  *8* 

8319  DISP  ’SET  TIMFDATE  BY  PRESSING  XI?  AND  UPDATE,  THEN  EXECUTE,  THEN  HIT  CON 
TINUE* 

8329  BFEP 

e330  PAUSE 

8340  CLEAR  799 

8350  CLEAR  722 

8340  '  THE  FOLLOWING  PROGRAMS  THF  3456A  DVM 

9379  Output  722; *L1 ZO&0F1 0STDP OFLOR3 . 1 0ST 1 1STNS01T4QX 1  * 

8339  PRINT  'THE  DESIRED  RUN  TIMES  AND  DELAYS  NOW  BE  INPUT* 

8390  INPUT  'ENTER  Tna,Tni,T«b,Tnp  SEPARATED  BY  COMMA, THEN  HIT  CONTIUE*,Tna,Tm 
,Tnb,Tnp 

8400  Tshut=Tna+Tni>Tnb+T«p+l  !  ONE  MORE  SECOND  FOR  TAIL  PART  READING 
8410  T  4=T«a  *T«i 

8429  T5-T4+Tnb 

8430  T6  =  T5+Tmp 

8449  OPTION  BASE  1 

8450  DIM  In ( SO 0 , 1 4 ) 

8149  JM 

8470  A=1 

8430  AU9 


!  STORAGE  DEFINITION 
!  CONTROL  FLAGS 


8493  A2=fl 

8500  A3-0 

8510  A4=  0 

85? 0  VI 4=6 

8530  PRINT  USING  *?* 

8540  BIS?  "TO  INITIATE  RUN,  PUSH  'PHI-AIR  SWITCH'  * 

9550  Monitor:  !  WAIT  UNTIL  INITIATE 

8580  OUTPUT  709;*AC14‘ 

8570  OUTPUT  722;‘T3“ 

8530  ENTER  722 -,01 4 

8590  IF  V14)=.5  THEN  GOTO  Startrun  !  IF  INITIATE  RUN,  IT  WILL  GIVE 

0,8  VOLTS 

8800  GOTO  Monitor 

8810  Startrun:  ! 

8320  TO=TIHEDATE 

8630  ON  CYCLE  .5  GOSUB  Data 

8640  ON  DEI  AY  Tshut  GOTO  Shutdown 

9650  Tmewait:  1  WAIT  0.5  SECOND 

9660  A'-A+l 

8670  GOTO  Tinewait 

8680  Data:  !  READ  ALL  DATA  EVERY  0.5  SECONDS 

8690  OUTPUT  799; “AC3AF 0AL13' 

8700  FOR  1=1  TO  14 

8710  OUTPUT  722;  'T3* 

8720  ENTER  722  USING  ■|,K*;In(J,I) 

8730  OUTPUT  709; ‘AS’ 

8740  NEXT  I 

8750  J=JM 

8760  T1=TIMFDATE 

8770  IF  Al=l  THEN  GOTO  Tnabypass 

9780  IF  DROUND(Tl-T0,3))=T«a  THEN 

8790  OUTPUT  709; “DC ] 3 ,2' 

8300  OUTPUT  789; 'DC1Q,3“ 

8918  ft  1  =  1 

88?0  END  IF 

8830  Tnabvpi35 :  ! 

8349  TUTWFDATE 

8850  IF  A2=l  THEN  GOTO  T4oypass 

8860  IF  DRGUND(Tl~TQ.3)>=T4  THEN 

9970  OUTPUT  709;* DO  10, 2‘ 

8380  OUTPUT  709; ‘DOl 0,3* 

8390  A2=l 

E990  END  IF 

8910  T4bypass:  1 

8920  T1=TIMEDATE 

8930  IF  A3=l  THEN  GOTO  TSbypass 

8940  IF  DROUND1T1-T0 ,3)>=i5  THEN 

8950  OUTPUT  709; *BC10, 

8960  A3=l 

8970  ENB  IF 

8980  TSbypass;  ! 

8990  T1=T1MEDATE 

9000  IF  A4=l  THEN  GOTO  Tbbypass 

9010  IF  CROUND(T1-TO ,3) >=T6  THEN 

9020  OUTPUT  709 ; “Dfll ft , 1  * 

9030  OUTPUT  709;  ’ DC  1 0 , 0 " 

9340  A4=l 

9050  END  IF 

9060  T6bypass:  ! 

9070  GOTO  9080  !»  THIS  NUMBER  WILL  BE  CHANGFD  WHEN  RENUMBER, 

9080  RETURN 

9098  Shutdown:  1 

9100  OFF  CYCLE 

9110 

9120  PRINT  USING  •?' 

9130  PRINT  ’  TEST  COMPLETE,  TURN  OFF  'MAIN-AIR',  AND  TURN  OFF  'HEATER 

GASES'  * 

9148  BEEP 
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9150 

9160  !»  (5)  POST-RUN  OPERATION 
9170 

91S0  DISP  ‘HIT  CONTINUE  TO  PROCEED  TO  DATA  REDUCTION1 

9190  PAUSE 

9200  nUTPUT  70?;*DG10,0* 

9210  PRINTER  IS  701 

9220  PRINT  USING  "S/1 

9230  PRINT  1  m*  PRE-RUN  INPUT  *»**  * 

9240  PRINT  USING  ‘2/* 

9250  PRINT  USING  *  1 4A , 9A ,5X ,  1 4A ,9A ,5X ,  1 4A ,9A ,2X ,  1 4A, DDDD . DDDD11 ; ‘Tsstno=‘ ; Test nc 
iu  *Pa  T  e=; ;  D  3 1  e> ,  -Fti  el  i  d  $= Fue  1  i  d$ ,  ;Pb  ar= * ;  Pb  ar 

yHeaterfuel=*;Hedte'f.,e 

„  ..  .......  ,DDDC.DDDB*;‘Utfi=‘;U n 

,  Dp  =  ;  Do ,  "Lp=  ;  Lp 

9230  PRINT  USING  ‘14A)DDDD.DDDD,5X.14A,DDDD,DDDD,/Di=*,,Dil,Dth=,;Dth 

92?0  PRINT  USING  * 1 4A , DDDD . DDDD , 5X , 1 4A . DODD , DDDD , jX  ,  1 4A ,  DDu  D .  DDDD ,  2X ,  1 4  A , IE j j  I- 

DDD‘i‘TKa=*-,TM.*Tni=,;T«i.,T^=,;Tnb,,i«5=,;T«p 

9300  PRINT  USING  ‘lTAjCDDu.DDDD,  jX,14A.DD0D,DDDD’:  “Dairchake-'iDairchoke/Lii:  t  tj 
choke1  :Dhf choke 

9310  PRINT  USING  “1 4A,DDDD . DCDD ,5X ,  14A , DDDD . DDDD‘ i "Dh t oxchoke=“ ; Dh ocho ke , "Da qr.f 
uchoke=  ;Difchoke  '  ’  y 

9320  PRINT  USING  ‘14A, DDDD. DODD1  ;,DDurqcchoke=,;Dnchoke 
9330  PRINT  USING  ’  1 4A , DDDD , DDDD ,  5X  ,'l  4A , DDDD , DDDD ,  jX  ,14ft. DDDD , DDDD' ;  ‘Cd  a  ir= 1  ;Cda 
ir, •Cdh=-;Cdhf . “Cdho=' ;Cdho 

9340  PRINT  USING  “14A,DDDD.DDDD)5X)14A,DDDD,DDDD,;,Cdp=‘;Cc!p.,Cdif=*;Cdif 
9350  PRINT  USING  *14A, DDDD. DDDD, 5X.14A. DDDD. DDDD)SX)14AiODD.DDDD‘;,(iaMahf=,;G 
annahf ,‘Gannaif=,;Can^aif 

9360  PRINT  USING  ‘14A,DDDD.DCDD*:‘GaMap=,;Ga(wap 

9370 ^  PRINT  USING  ‘lAA.DDDD, DDDD, SX.UA.fiDDD, DDDD, 5X,14A, DDDD.  1>DDD" ; *Rhf =* ;Rhf , • 
Rif-  »R if  i  Rp-  .Rp 

9330  PRINT  USING  *14A,  DDDD.  DDDD, 5X,14A, DDDD.  DDDD, 5X,14A, DDDD,  DDDD’ /Kjihf^jKnhf 
,‘R«if=,:K»*iP/K«p=,;Xnp  '  ’ 

9390  PRINT  USING  *14A, DDDD, DDDD, 5X,14A, DDDD. DDDD" ;*Xnho=*'K«ho,‘K«air=";Xftair 
9400  PRINT  USING  *1 4A, DDDD. DDDD, 5X.14A, DDDD. DDDD ,]‘Haird=t;Haird.,Tid=*  Tid 
VM  .£?™T  USI'iE  *1 4A, DDDD. DDDD, 5X.14A, DDDD. DDDD.5X,14A,DDfiD.DDD4,2X,14A, DDDD. D 
DCC  ; ’Hhfd=":“hfd  ‘Nhod=' :Hhod,  1/lifO  =  ,;/lifd,  ’H?d=l;f!pd  '  '  ’ 

9420  PRINT  ‘INJECTION  GA!j  IS  ‘iniectqasl 
9430  PRINT  USING  ‘3/‘ 

9440  PRINT  •'  im  DATA  EXTRACTED  **** 

9460  PRINT  'FLOW  RATES  IN  Lbn/sec,  PRESSURE  IN  Psia,  TEMPERATURE  IN  R‘ 

9470  PRINT  11 
9430  !  HEADING  PRINT 

9490  PRINT  USING  ’.9  A  1 X  6A ,  3X ,  6A ,  4X  6A  4X ,  6  A ,  4X .  6A .  4X ,  6A ,  5X .  6A ,  4X .  6A ,  4X ,  1 C  A  - ;  'T 

95005eFOR'j=?aTO  jnax  ’  '  1  ’’  "P  '  ^ 

9510  FOR  1=1  TO  14  * 

9520  IF  1=1  THEN 

9530  Vpc=In(J,I) 

9540  Pc=(  Vpc-C'pcO )  «Kpc+Pbar 

9550  END  IF 

9560  IF  1=2  THEN 

9570  Vph=In(  J,  I) 

9580  Pn=HlDh-UphO)*Kph+Pbar 

9590  END  IF 
9600  IF  1=3  THFN 

9610  Vpa-In(J,I) 

9620  Pa=(Upa-vpaO)*Kna+Pbar 

9630  END  IF 

9640  IF  1=4  AND  Ht=l.  THEN 

9650  Vphf=In(  J,  I) 

9660  Pnf=(Vphf-Vphffl)»KphftPbar 

9675  END  IF 

9680  IF  1=5  AND  Ht=l,  THEN 

9690  Vph  o= In ( J , I ) 

9700  Pho=('Ma-Uoho5)*Kph<i+Pb3r 
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9718  END  IF 

9720  IF  1=6  AND  ff=l  THEN 
9730  Vf=InU,I) 

9740  F=(Vf-VfO)*Kf 

9750  END  IF 

9760  IF  1=6  AND  Ff=fl  THEN 

9779  F=Q 

9730  END  IF 

9790  IF  1=7  THEN 
9300  Vpif=In(J,I) 

9810  Pif=(Vpif-VpifO)»Kpif 

9320  IF  Pif <=(Ph+28 )  THcN 

9930  Pif=0. 

9840  END  IF 

9850  END  IF 

9860  IF  1=8  THEN 

9870  Vpp=In(J,I) 

9380  Pn=(ypt)-C'ppfl>*Kpp+Pbar 

9390  IF  Pp(=(Pn+20)  THEN 

9909  Pp=8, 

9910  END  IF 

9920  END  IF 

9930  IF  1=9  THEN 

9940  Volts=In(J,I) 

9950  GOSLiB  Tcalc 

9960  Ti=T 

9970  END  IF 

9980  IF  1=18  THEN 

9990  V»lts=In< J,  I) 

10008  C0SU8  Tcalc 

1 0D11  Ta=T 

10020  END  IF 

10038  IF  1=11  AND  Ht=l,  THEN 
10040  Uo 1 ts=In ( J , I ) 

19050  GOSUB  Tcalc 

10060  Thf=T 

10070  END  IF 

10030  IF  1=12  AND  Ht=l.  THEN 
10090  V«lts=In(J,I) 

10180  GOSUB  Tcalc 

10119  Tho=T 

10128  END  IF 

10131  IF  [=13  THEN 
10148  Volts=Tn<J,I) 

10150  GOSUB  Tcalc 

10160  Tif=T 

10170  END  IF 

10190  IF  1=14  THEN 
10190  V»lts=!n(J,I) 

10200  GOSUB  Tcalc 

10210  Tp=T 

10220  END  IF 

1  8230  NEXT  I 
10240  T=J/2 

18250  Hair=K«air*Cdair»Pa».7854*(Dairchol<e*2)/(Ta' ,5) 

10260  iihf=K«hf»Cdhf*Phf*.7854*(0hfchoke‘2)/(ThfA.5) 

10270  rtPio=K«ho*Cdho*Pho* . 7854*(Dhochoke'2 >/(Tho A ,5) 

18280  Hif=Xmf*Cdif*Pif*.7854*(Difchol<e‘2)/(Tif‘,5) 

10290  HB=X«p*Cdn*Pp*,7854»(Dpchiike,2)/(Tp‘,5) 

18300  PRINT  USING  *2X,DD.DD,3X,DD.DDD,4(3X)D.DDDDD)  ,5(3X,0DDD.DD)';T,t4air,Hnf  ,tl 

1h«fW*Pe'Ph'Ta 

18325  PRINTER  IS  1 
11*39  PRINT  USING  *9* 

10340  INPUT  'DO  YOU  KANT  TO  HAKE  POST-RUN  AIR  CALCULATION?  <Y/N)\Yy$ 

10350  IF  Yy$=*Y‘  THEN  Ko=l 
10360  IF  Yyt=*N*  THEN  GOTO  Finish 

10370  GOTO  Paset  !  TO  CALCULATE  THE  EFFECTIVE  THROAT  DIAMETER 
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